我的宏在我的计算机上可以正常工作，但在我尝试将其发送到的另一台计算机上却无法正常工作

Question

Sub Master_Copy（） ' 'Master_Copy宏 '将输入数据复制到主数据库 ' '

Application.ScreenUpdating = False
Dim copySheet As Worksheet
Dim pasteSheet As Worksheet
Dim bCell As Range
Dim myRange As Range
    

Set copySheet = Worksheets("Input List")
Set pasteSheet = Worksheets("Master List")

copySheet.Range("A2:DK3").Copy
pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Application.ScreenUpdating = True

//这是在另一台计算机上不起作用的部分，如果没有要传输的维护数据，则此程序可以正常工作

Set copySheet = Worksheets("Maintenance_Input")
Set pasteSheet = Worksheets("Maintenance_Final")

Set myRange = copySheet.Range("B73:J132")
    For Each myCell In myRange
        If myCell.Value <> "" Then
            If bCell Is Nothing Then
                Set bCell = myCell
            Else
                Set bCell = Union(bCell, myCell)
            End If
        End If
    Next
    If Not bCell Is Nothing Then
        bCell.Copy
    End If
 

If Not bCell Is Nothing Then
    pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, SkipBlanks:=True
End If
Application.CutCopyMode = False
Application.ScreenUpdating = True

//无效代码结束

ActiveWindow.SelectedSheets.PrintOut copies:=2, collate:=True, IgnorePrintAreas:=False, Preview:=True

结束子

///运行时，将引发自动化错误异常，然后excel完全崩溃