Slet rækker med celler, som indholder "Total: "

Denne kode virker:

Dim i As Variant

For i = 1 To 65000
    If Cells(i, 2).Value = "Total:" Then
        Range(Cells(i, 2), Cells(i + 4, 2)).EntireRow.Delete
    End If
Next i

Hej

Den ser fin ud, men søger kun efter celler med et indhold, der er lig med "Total:". Dem jeg søger efter, starter med dette, men indeholde yderligere tekst. Så det må vel være noget i retnig af :
If Left(Cells(i, 2), 7).Value = "Total: " Then

Men det får den til at fejle med et "Object required"

Ny kode:

Dim i As Variant

For i = 1 To 65000

    If Left(Cells(i, 2), 6) = "Total:" Then
        Range(Cells(i, 2), Cells(i + 4, 2)).EntireRow.Delete
    End If
Next i