Date + 28 days delete

Option Explicit

Sub Remove28DaysAgo()
Dim lastrow As Long, icell As Long

lastrow = Range("G" & Rows.Count).End(xlUp).Row

For icell = lastrow To 1 Step -1
    If Range("J" & icell).Value = "reschedule out" Then
        If Range("G" & icell).Value < Date - 28 Then
            Range("G" & icell).EntireRow.Delete Shift:=xlUp
        End If
    End If
Next icell

End Sub

I cannot get either of these solutions to work!