Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("G4")) Is Nothing Then
IndexA = Application.Match(Target, [A:A], 0)
For i = 1 To 5
Cells(2, i) = Cells(IndexA, i)
Next i
Rows(IndexA).EntireRow.Delete
End If
Fin:
End Sub