Sub atest()
Dim LR As Long, i As Long
Application.ScreenUpdating = False
LR = Range("G" & Rows.Count).End(xlUp).Row
For i = LR To 3 Step -1
With Range("G" & i)
If .Value = .Offset(-1).Value Then .Offset(-1).EntireRow.Delete
End With
Next i
Application.ScreenUpdating = True
End Sub
Sub atest()
Dim LR As Long, i As Long
Application.ScreenUpdating = False
LR = Range("G" & Rows.Count).End(xlUp).Row
For i = LR To 3 Step -1
With Range("G" & i)
If .Value = .Offset(-1).Value And .Offset(, -3).Value = .Offset(-1, -3).Value Then .Offset(-1).EntireRow.Delete
End With
Next i
Application.ScreenUpdating = True
End Sub