Here's one way:

Sub test3001()
Dim rng As Range
Set rng = Sheets("B").Range("A65536").End(xlUp)(2)
Sheets("A").Range("b1:b20").Copy
rng.PasteSpecial Transpose:=True
Application.CutCopyMode = False
End Sub

Alan Beban

Mike wrote:
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