Thanks Ron,
That's terrific.
"Ron de Bruin" wrote in message
...
Hi Maxx
See the third example macro here
http://www.rondebruin.nl/copy1.htm
Sub Copy_1_Value_PasteSpecial
Change the last argument to True
--
Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm
"Maxx" wrote in message
...
Sub CopyTransposePaste()
Range("A1:A8").Copy
Sheets(2).Range("A1").PasteSpecial Transpose:=True
End Sub
How can I amend this code so that data is copied into the next blank row
in Sheet2?