Hi,
Can anyone please help me with some code to copy a column from a worksheet, and paste it in the first empty column in a second worksheet?
I can do this easily when I want to copy/paste to the first empty row using the code:
Code
Sheet3.Select
Range("A1:A10").Select
Application.CutCopyMode = False
Selection.Copy
Sheet2.Select
Dim LastCell As Range
With ActiveSheet
Set LastCell = .Cells(.Rows.Count, "A").End(xlUp)
If IsEmpty(LastCell) Then
'do nothing
Else
Set LastCell = LastCell.Offset(1, 0)
LastCell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
End With
Display More
..but I cannot find a way to change this to columns!
If someone could tell me how to change this code, or give me a new code, I would be very grateful.
PLEASE NOTE: this request has been posted on another forum, but is unanswered.