从任何工作表运行特定于工作表A的宏

Question

我在工作表A中有一个宏。当我在工作表A中时，它运行良好，但是当我尝试从工作表B中运行它时，会引发错误。

Sub BP_Clear()
    Dim Lastrow_Data1 As Long
    Dim Lastrow_Pivot1 As Long

    Lastrow_Data1 = Sheets("A").Range("G20000").End(xlUp).row
    Lastrow_Pivot1 = Sheets("A").Range("B20000").End(xlUp).row
    Application.ScreenUpdating = False

    Range("G10").Select
    Selection.End(xlDown).Select
    Range(Cells(10, 7), Cells(Lastrow_Pivot1 + 10000, 7)).ClearContents

    Application.CutCopyMode = False     
End Sub