Я думаю, что ошибка в нотации R C, попробуйте R [11] C [5]: R [10000] C [8], но для использования VlookUp в VBA мне нравится использовать Application.WorksheetFunction ...
Sub test()
Dim k As Long
Dim numS As Long
Dim LookUpValue As String
LookUpValue = "Weeks from Event " & numS - 1 & " to Event " & numS
Debug.Print (LookUpValue)
If (Cells(k, 14).Value = WorksheetFunction.VLookup(LookUpValue, Range(Cells(11, 5), Cells(1000, 8)), 4)) Then
Cells(k, 13).Value = numS
Else
Cells(k, 13).Value = ""
End If
End Sub
Дайте мне знать, если это поможет. Вы можете сразу же нажать windows (Ctrl + G) в редакторе VBA, чтобы увидеть, каким будет значение LookUpValue.