This should be close to what you want...

Sub DeleteRows()
Dim wks As Worksheet
Dim rngToSearch As Range
Dim rngCurrent As Range
Dim rngToDelete As Range

Set wks = ActiveSheet
Set rngToSearch = Range(wks.Range("G2"), wks.Range("G65536").End(xlUp))
For Each rngCurrent In rngToSearch
If rngCurrent.Value Date Or rngCurrent.Offset(0, 1).Value Date
Then
If rngToDelete Is Nothing Then
Set rngToDelete = rngCurrent
Else
Set rngToDelete = Union(rngToDelete, rngCurrent)
End If
End If
Next rngCurrent
If Not rngToDelete Is Nothing Then rngToDelete.EntireRow.Delete

End Sub
--
HTH...

Jim Thomlinson


"Matt Cromer" wrote:

Column G & H contain Dates. I would like to run a macro that deletes the
entire row where the date in column G "or" H is greater than today().