почему программа перестает работать из-за ошибки времени выполнения "1004" Ошибка, определяемая приложением или объектом в сети?

Question

почему программа не работает? он остановился с ошибкой недопустимая ссылка на следующую переменную

Sub RemoveRows5()
     ThisWorkbook.ActiveSheet.Cells.ClearFormats
    Dim n As Long
    lastrow = Range("A" & Rows.Count).End(xlUp).Row
    MsgBox lastrow
For n = lastrow To 1 Step -1
        If InStr(1, ThisWorkbook.ActiveSheet.Cells(n, 1).Text, "<>", vbTextCompare) > 0 Then
            ThisWorkbook.ActiveSheet.Cells(n, 1).EntireRow.Delete
        End If
Next lastrow
    End Sub