Thread: CopyTransposePaste into next blank row
View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Maxx[_2_] Maxx[_2_] is offline
external usenet poster
  
Posts: 19
Default CopyTransposePaste into next blank row
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?


Reply With QuoteReply With Quote