Sub Macro1()
' Macro1 Macro
' Macro recorded 02/18/2004 by James M. May
'
Sheets("Sheet1").Activate
Range("B1:B20").Select
Selection.Copy
Sheets("Sheet2").Activate
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=True
Range("A2").Select
Application.CutCopyMode = False
Sheets("Sheet1").Activate
Range("A1").Select
Sheets("Sheet2").Activate
Range("A2").Select
End Sub

"Mike" wrote in 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

thanks
Mike