避免在VBA中选择（初学者）

Question

我是VBA编码新手，因为我不熟悉编码，所以我很难阅读解决方案。

我想避免使用Select，下面我记录了我的宏。

我想选择一个特定的工作表1并将范围A:C复制并粘贴到工作表1范围D:F中，然后从G:J中选择所有工作表，然后删除所有内容。

我正在尝试使用Dim，但我遇到错误

谢谢大家

Sub Macro1()

Sheets("GL").Select
Columns("AI:AL").Select
Selection.Copy
Range("AP1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Sheets.Select
Columns("BA:BC").Select
Application.CutCopyMode = False
Selection.ClearContents

Sheets("GL").Select
Range("AJ1:AL1").Select
Selection.Copy

Sheets.Select
Range("BA3").Select
Selection.Paste

ActiveWorkbook.ActiveSheet.Select


ThisWorkbook.RefreshAll

MsgBox "Pivots refreshed"


End Sub