range - 自定义排序范围

Question

只需要知道如何获得以下代码而不是让我出现类型不匹配错误。注释掉的最后一行有效，但是当我用 f 替换 Range("B2:B2000") 时，它给了我一个类型不匹配错误。我之所以不只使用最后一行，而是因为它有效，是因为如果我在 B 列中插入一个新列，如果 B 列变为 C 列怎么办。我还需要在 f 中添加其他内容以使其工作吗？

f = Application.WorksheetFunction.Match("PCR No.", Range("A1:AZ1"), 0) ActiveWorkbook.Worksheets("3. PMO Internal View").Sort.SortFields.Add Key:=Cells(1, F）

ActiveWorkbook.Worksheets("3. PMO Internal View").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("3. PMO Internal View").Sort.SortFields.Add Key:= _
f, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
'Range("B2:B2000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal