为什么我的Vlookup VBA代码显示400的错误

Question

我在同一工作簿和单独的工作表中具有相同的代码，并且它工作得很好。我为同一工作簿但不同的工作表复制了相同的代码，但出现错误。

Sub ExecuteLkup()

Dim LastRow As Long
Dim LastCol As Long
Dim iRow As Long
Dim wb As Workbook
Set wb = Workbooks.Open(Filename:="V:\Mar22\Top Segments & Top All_Mar22.xlsx")
Set ws = Sheet4

Range("K2").Value = WorksheetFunction.Vlookup(Range("F").Value, wb.Sheets("TopAll").Range("E:I"), 5, 0)
        


With ws
LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
LastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column

.Cells(1, LastCol + 1).Value = "Variance"

End With
  
   Range("L2").Select
    ActiveCell.FormulaR1C1 = "=[@[BRN_nett_grand_total]]-[@Column1]"
    
End Sub