cut a row of 10 items and paste as column
Range("Copy_Range").Select
Selection.Copy
Range("Paste_Range").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True
Range("Copy_Range").ClearContents 'Deletes the copy range if
needed.
gavino wrote:
How do i cut a row of 10 things and paste as a coumn?
|