Sub MatchingRow()
Dim c As Range
Dim lr as Integer
lr = Range("D" & Rows.Count).End(xlUp).Row
With Sheets("Sheet1").Range("A2:D" & lr)
Set c = .Find(What:=Cells(1, "G"), LookIn:=xlValues, LookAt:=xlWhole)
rw = c.Row - 1
If Not c Is Nothing Then .Range("A" & rw & ":D" & rw).[COLOR=#ff0000]Select[/COLOR]
End With
End Sub