VBA RunAll宏正在插入重复的列

Question

我正在尝试将我创建的两个宏合并为一个RunALL宏。下面是我用于RunAll宏的内容。当我使用RunAll宏时，它将创建具有相同名称的两列。我尝试在此处附加照片，以供您查看。

我在做什么错了？

Sub RunAll()
    Call CopyWorkbook
    Call InsertColumn
End Sub

CopyWorkbook宏是...

Sub CopyWorkbook()
    Dim sourceSheet As Worksheet
    Dim destSheet As Worksheet

    'copy from the source
    Workbooks.Open Filename:="X:\Safety\Chris A\Employee Safety   Profile\Speeding_Report.xlsm"
    Set sourceSheet = Worksheets("Report")
    sourceSheet.Activate
    sourceSheet.Cells.Select
    Selection.Copy

    'paste to the destination
    Workbooks.Open Filename:="X:\Safety\Chris A\Employee Safety Profile\Employee_Safety_Profile.xlsm"
    Set destSheet = Worksheets("Speeding")
    destSheet.Activate
    destSheet.Cells.Select
    destSheet.Paste
End Sub

InsertColumn宏是...。

Sub InsertColumn()
    Columns("E:E").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("E9").Value = "Full Name"

    Columns("F:F").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("F9").Value = "UUID"     
End Sub