Copy last used column to adjacent empty column

**tigeravatar** · 01-15-2015, 07:36 PM

Hello itwas45and51,

Something like this should work for you:

Sub tgr()
    
    Dim rngLastCol As Range
    Set rngLastCol = Cells(1, Columns.Count).End(xlToLeft).EntireColumn
    rngLastCol.Copy Destination:=rngLastCol.Offset(, 1)
    
End Sub

**itwas45and51** · 01-15-2015, 07:54 PM

Awesome!!!! One last question about something I didn't consider earlier - what would I need to modify in the code so that I could place the macro in a separate worksheet? The column being copied is in worksheet "Scorecard". The macro would be placed in "Macros". Thanks again!