Slet række, hvis = værdi i en celle

Hej
Jeg har denne som fungere perfekt.
Sub SletRaekker()
    SidsteRk = Range("D" & Rows.Count).End(xlUp).Row
        For i = SidsteRk To 2 Step -1
            If Range("D" & i).Value = 1 Then
                Rows(i & ":" & i).Delete shift:=xlUp
            End If
        Next i
End Sub
Hvordan kan jeg ændre Value = 1 til værdien i celle G1?
Kan jeg slette ud fra en tekst? og igen gerne fra værdien i celle G1