自定义排序范围

Question

只需知道如何获取以下代码不会让我出现类型不匹配错误。注释掉的最后一行有效，但当我用F替换范围（“B2：B2000”）时，它给出了类型不匹配错误。之所以我不只是使用最后一行而是因为它起作用的原因是因为如果我在列B中插入一个新列，那么如果列B成为C列，那么我还需要添加一些其他内容来使其工作吗？

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