Thanks. I'll try that for that piece, but I should have mentioned that it first error's out when trying to find the first blank cell.
I've tried many variations of the following:
xlSheet.Range("A" & rows.Count).end(xlup).offset(1, 0)
Tried defining it as an object:
Dim xlBlankCell As...