ソースはこちら。
Dim i As Long

Sub DelRow()

Dim c As Range
Dim blnFlag As Boolean

blnFlag = False

'最終行iから上に進む
For i = ActiveSheet.Cells(Rows.Count, 4).End(xlUp).Row To 1 Step -1

'G〜Tを判定。ワイルドカードで検索し何らかの文字があればblnFlagをTrueにする。
For Each c In Range(Cells(i, "G"), Cells(i, "T"))

'値が入っていたらTrue
If c.Value <> Empty Then
blnFlag = True
End If

Next c


If blnFlag = False Then
Range(i & ":" & i).Delete
Else
blnFlag = False
End If
Next i

End Sub