Copy and paste entire column to the next column

[clovisjim]

For the life of me I can't understand why this works. Would someone explain this to me?

Columns(last_col).Copy Columns(last_col + 1)

Thanks!

 

[My Aswer Is This]

Try this:
Assuming row (1) has the most columns

Sub Copy_LastColumn()
LastColumn = Cells(1, Columns.Count).End(xlToLeft).Column
Columns(LastColumn).Copy Columns((LastColumn + 1))
End Sub

 

[clovisjim]

Thanks. The original code I posted works, but I don't understand it. Specifically, the snippet below. How does Excel know to paste?

Columns(last_col).Copy Columns(last_col + 1)

 

[My Aswer Is This]

Excel is smart enough to know if you copy then you normally want to paste.

Just like:
Range("A1").copy Destination:= Sheets("George").Range("B6")

 

[clovisjim]

Thank you. I'll keep this in mind in the future. Cheers!

 

[My Aswer Is This]

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

Thank you. I'll keep this in mind in the future. Cheers!