使用ActiveCell和Lastrow的VBA范围

Question

我正在尝试使用VBA过滤数据工作表，将VLookup添加到一列并将其自动填充到该列中的最后一个单元格。以下是我的代码：

Lastrow = Range("A1").End(xlDown).Row + 1
ActiveSheet.Range("A1:AG" & Lastrow).AutoFilter Field:=5, Criteria1:="<99999999", Operator:=xlAnd
Lastrow = Worksheets("Sheet4").Range("A1").End(xlDown).Row + 1
ActiveSheet.AutoFilter.Range.Offset(1).SpecialCells(xlCellTypeVisible).Cells(1, 5).Select
ActiveCell.Value = "=vlookup(F" & ActiveCell.Row & ",Sheet4!$A$2:$B$" & Lastrow & ",2,0)"
Lastrow = Range("F" & ActiveCell.Row).End(xlDown).Row
ActiveSheet.AutoFilter.Range.Offset(1).SpecialCells(xlCellTypeVisible).Cells(1, 5).Select  
Selection.AutoFill Destination:=Range("F" & ActiveCell.Row & ":F" & Lastrow)

代码运行正常，直到我得到运行时错误说

时到达最后一行

  

范围类的自动填充方法失败。

任何建议？