Excel宏查找使用的最后一列，插入新列并从上一列复制公式

Question

I am trying to create an "Insert Column" macro in Excel.

The workbook uses formulas and conditional formatting to display progress along a timeline. I need to provide users with a way to add additional columns to the timeline.

The macro I am trying to build locates the last column and copies the entirety of column lastColumn into column newColumn. However, everything that I find online and try to adapt either gives me an object error or doesn't do anything. Please help me figure out how to do this.

Here's my code so far.

Sub InsertColumn()

    Dim lastColumn As Long
    Dim newColumn As Long

    With ActiveSheet
        lastColumn = .Range("A1").SpecialCells(xlCellTypeLastCell).column
    End With

    newColumn = lastColumn + 1

    Selection.AutoFill Destination:=Columns(lastColumn & ":" & newColumn), Type:=xlFillDefault

End Sub

Answer 1

If you are simply trying to copy the one column to another then this will work:

Sub InsertColumn()
    Dim lastColumn As Long
    lastColumn = ActiveSheet.Range("A1").SpecialCells(xlCellTypeLastCell).Column
    Columns(lastColumn).Copy Destination:=Columns(lastColumn + 1)
End Sub