Yeah I thought that would be a straight-forward solution (and it probably still is) but to do that, how would I manipulate the above code?

I have tried unsuccessfully using:

emptyRow = WorksheetFunction.CountA(Range("A:Z")) + 1

Would it instead be something like:

a = WorksheetFunction.CountA(Range("A:A")) + 1
b = WorksheetFunction.CountA(Range("B:B")) + 1
...

then emptyRow = (some code for max value of a:z)