Watch the word wrap in this code
sub aaa
Sheets("a").Range("b1:b20").Copy
Sheets("b").Cells(Sheets("b").Cells(Rows.Count, "a") _
& .End(xlUp).Row + 1, "a"). _
& PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
end su
--
Message posted from
http://www.ExcelForum.com