我正试图参考下面的功能在选项卡，其中有所有的问题号码链接到另一个选项卡，其中有所有的问题号码。我正在使用此功能在完全不同的选项卡中创建记分卡，当我单击“创建记分卡”按钮时，它会弹出消息“对象不支持此属性或方法”
我正在使用Excel版本2016，所以如果任何功能在版本中不起作用或代码有问题，我会感到困惑？
我在注解部分写了整个代码，因为它不允许我进入body。enter image description here

Sub A_CreateQuestion() 
Dim i, j, k As Integer 
Dim irow, icol, urow, ucol, ipat, iboo, upat, uboo, inam, unam As String 
Application.DisplayAlerts = False 
Application.CutCopyMode = False 
Sheets("Scorecard Build").Activate 
irow = Range("A65583").End(xlUp).Row 

If Cells(1, 14) <> "" Then Cells(2, 1).Copy Range(Cells(3, 1), Cells(irow, 1)) 
For j = irow To 2 Step -1 
If Cells(j, 1) = "" Then Rows(j).Delete xlUp 
Next 
ActiveWorkbook.Worksheets("Scorecard Build").ListObjects("SB").Sort. _ SortFields.Clear ActiveWorkbook.Worksheets("Scorecard Build").ListObjects("SB").Sort. _ 
SortFields.Add2 Key:=Range("SB[[#All],[Item '#]]"), SortOn:= _ xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Scorecard Build").ListObjects("SB").Sort  

ActiveWorkbook.Worksheets("Scorecard Build").ListObjects("SB").Sort. _ SortFields.Add2 Key:=Range("SB[[#All],[Item '#]]"), SortOn:= _ xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Scorecard Build").ListObjects("SB").Sort .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End