View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
mudraker[_159_] mudraker[_159_] is offline
external usenet poster
 
Posts: 1
Default CopyIntoFirstEmptyRow

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