Hjælp til VBA makro

Jeg bruger en makro til at rense et datasæt for ugyldige rækker.
Det virker (b)næsten(/b) som det skal!

Der er bare det problem at ikke alle ugyldige rækker bliver slettet.

Det datasæt jeg tester på indeholder 792 Rækker i alt.

Når jeg har renset det for ugyldige Rækker manuelt indeholder det 178 gyldige Rækker.

Når makroen renser det, indeholder det 404 Rækker når makroen er færdig, altså stadig 226 ugyldige rækker der burde blive slettet af makroen.

Køres makroen en gang til bliver de sidste ugyldige rækker fjernet og så indeholder datasættet 178 gyldige Rækker som det skal.

Kan nogen gennemskue hvad der er galt med koden?

*******************************************************************
(b)Her er koden:(/b)

Sub SletRækker()
'Aktiverer arket "DataKopi"    Worksheets("DataKopi").UsedRange.Delete

    Worksheets("DataKopi").Activate
   
'Går til sidste celle i datasættet
    Lastrow = Cells(Rows.Count, "G").End(xlUp).Row
   
'Sletter rækker der indeholder "Overført fra side 1"
    Dim i As Integer
    With ActiveSheet
        For i = Lastrow To 1 Step -1
            If .Cells(i, "B").Value = "Overført fra side 1" Then
                .Rows(i).Delete
            End If
        Next i
    End With
   
'Går til sidste celle i datasættet
    Lastrow = Cells(Rows.Count, "G").End(xlUp).Row
   
'Sletter rækker der indeholder "Overføres til nyt ark:"
    With ActiveSheet
        For i = Lastrow To 1 Step -1
            If .Cells(i, "D").Value = "Overføres til nyt ark:" Then
                .Rows(i).Delete
            End If
        Next i
    End With
   
'Går til sidste celle i datasættet
    Lastrow = Cells(Rows.Count, "G").End(xlUp).Row
   
'Sletter rækker der ikke indeholder data
    With ActiveSheet
        For i = Lastrow To 1 Step -1
            If .Cells(i, "C").Value & .Cells(i, "D").Value = "" Then
                .Rows(i).Delete
            End If
        Next i
    End With
End Sub

*******************************************************************

(b)Ugyldige rækker der bliver fjernet ser f.eks. sådan her ud:(/b)

        A            B            C            D            E            F            G
1                                                                                    0
2                                    Overføres til nyt ark:                        1068
3            Overført fra side 1                                                    1068

(b)Gyldige rækker der ikke bliver fjernet ser f.eks. sådan her ud:(/b)

        A            B            C                                D            E            F            G
1  29-01-2010      19  Andet - SUKA - Sommerferie mm        Suka fest                    700          622
2  30-01-2010      20    Anden Indtægt/Overskud          Retur fra Suka-fest    446                      1068

*******************************************************************