Copy range to adjacent or fill right

[decadence]

I am trying to copy cells from column C to column D but not having any luck. I would like to copy the cells C2 to last row and the put them in adjacent column D2 to last row if that makes sense. So far I have this but not sure which way to go, Can someone help

    Dim lastRow As Long
    lastRow = Range("C" & Rows.Count).End(xlUp).Row
    Range ("D2:D" & lastRow) '.Formula

 

[My Aswer Is This]

Try this:

Sub Test()
Application.ScreenUpdating = False
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "C").End(xlUp).Row
Range("C2:C" & Lastrow).Copy Destination:=Range("D2")
Application.ScreenUpdating = True
End Sub

 

[My Aswer Is This]

Or if you like Offset then use this:

Sub Offset_Test()
'Offset
Application.ScreenUpdating = False
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "C").End(xlUp).Row
Range("C2:C" & Lastrow).Select
Selection.Copy Destination:=Selection.Offset(, 1)
Application.ScreenUpdating = True
End Sub

 

[decadence]

Thanks My Answer is This, They both work perfectly but I prefer the first one.

 

[My Aswer Is This]

Glad I was able to help you. Come back here to Mr. Excel next time you need additional assistance.

Thanks My Answer is This, They both work perfectly but I prefer the first one.