Sub Macro1()
Sheets("Sheet1").Select
Rows("1:256").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet2").Select
Rows("1:256").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True
End Sub

--
Gary''s Student - gsnu200826