Copy last used column to adjacent empty column

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