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

我正在尝试在Excel中创建“插入列”宏

工作簿使用公式和条件格式沿时间线显示进度。我需要为用户提供一种向时间线添加额外列的方法

我试图构建的宏定位最后一列，并将整个列lastColumn复制到列newColumn中。然而，我在网上找到并尝试适应的所有东西要么给我一个对象错误，要么什么都不做。请帮我弄清楚怎么做

这是到目前为止我的代码

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

---

如果您只是尝试将一列复制到另一列，那么这将起作用：

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

---

请发布你到目前为止的代码。我已经使用了这个，并且（我相信）取得了一些进展，但是我仍然无法让复制粘贴正常工作。我的更新代码已作为编辑发布。请帮忙。非常感谢。因此，添加InsertColumn宏使我意识到我需要有关InsertRow宏的其他帮助。是否要为您的

InsertRow1问题打开一个新问题？或者，您是否可以调整

InsertColumn`的代码以满足您的需要？对此表示抱歉；我开始在周五打评论，然后被拉去参加一个会议，再也没有回来。这篇评论不应该发表。我将开始一个新的线程，以避免混淆。非常感谢。