Auto-Copy & Paste

I did this macro by activating the relative reference and recording new macro while doing the action. It works well. You just have to click in any cell of the last column you want to copy and run the macro.

Public Sub Copy_Column()
    ActiveCell.Offset(0, 0).Columns("A:A").EntireColumn.Select
    Selection.Copy
    ActiveCell.Offset(0, 1).Columns("A:A").EntireColumn.Select
    Selection.Insert Shift:=xlToRight
    ActiveCell.Offset(0, -1).Columns("A:A").EntireColumn.Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    ActiveCell.Offset(4, 1).Range("A1").Select

End Sub