This is a short and easy way of doing it...

With Worksheets("B")
k=2
While .cells(k,1)<""
k=k+1
Wend
End With

Variable k will have the first empty row number every time
this macro is run.

Regards


-----Original Message-----
I hope someone can help.
I need to write a macro to do the following:
I have worksheet A, which I want to copy the values of
Cells B1:B20
The macro will search worksheet B for the first empty
row starting with
row A2.
Then copy worksheet A, cells b1:b20 into worksheet B
HORIZONTALLY in cells
A2:T2
The next times the macro is activated, it will again
copy cells b1:b20 from worksheet a,
find the next empty row in worksheet B and then copy.
thanks
Mike


.