Try this

iCounter = 1
do until Range("A" & iCounter).value = ""
iCounter = iCounter + 1
loop

iCounter wil now have the tow number of the first blank cell

" wrote:

Hey

I need some code for the following:

I have a work book A.xls sheet B
I need to find the last non blank cell in column A and then cut that
row into work book C.xls sheet D
Then I need to loop through this until Column A in workbook A.xls
sheet B is empty

Should be easy but I have not clue how to do this

Please help