I hope I'm on the right track here, this is a simple loop to find the next empty cell in a row or column. Assumming the data is in column B (2 in macro) and the data will be in rows 10 to 110.
For x = 10 to 110
If IsEmpty(Cells(x,2))then goto exit1
next x
exit1:
you can then use...