This code finds the next empty cell in the workbook. I don't think its quite what you're looking for but it is a start
Dim lRealLastRow As Long
Dim lRealLastColumn As Long
On Error Resume Next
lRealLastRow = Cells.Find("*", Range("A1"), xlFormulas, , xlByRows, xlPrevious).Row
lRealLastColumn = Cells.Find("*", Range("A1"), xlFormulas, , xlByColumns, xlPrevious).Column
Cells(lRealLastRow + 1, lRealLastColumn).Select
Another option. Go to the first populated cell in the column you want and issue the 'End+Down' comparable commmand. That will take you to the last populated cell in that column. Then you just have to move to the next row.
'Assumes no blank rows within your data
'If your data contains blank rows within it
Do Until ActiveCell.Row = 65536
You are looking here for the cell to contain a space. Using this method, use double-doubles to find a blank cell.
Do While Cells(Row,1) < > ""
Also, while I've used this method frequently, my earlier posted method is MUCH FASTER for larger sheets (anything over 100 or 200 rows). Once you get to thousands of rows, this method starts taking serious time.