Si lo entendí correctamente, dadas las filas 1 y 2, desea eliminar una fila 2 si y solo si A1 = A2, C1 = C2, D1 = D2, E1 = E2 y F1 = F2.
Esto es lo que se me ocurrió. Probablemente podría ser más corto pero hace el truco:
Sub DeleteDuplicate()
Dim current As String
ActiveSheet.Range("A1").Activate
Do While ActiveCell.Value <> ""
current = ActiveCell.Address
ActiveCell.Offset(1, 0).Activate
Do While ActiveCell.Value <> ""
If ((ActiveSheet.Range(current).Value = ActiveCell.Value) And (ActiveSheet.Range(current).Offset(0, 2).Value = ActiveCell.Offset(0, 2).Value) And (ActiveSheet.Range(current).Offset(0, 3).Value = ActiveCell.Offset(0, 3).Value) And (ActiveSheet.Range(current).Offset(0, 4).Value = ActiveCell.Offset(0, 4).Value) And (ActiveSheet.Range(current).Offset(0, 5).Value = ActiveCell.Offset(0, 5).Value)) Then
ActiveSheet.Rows(ActiveCell.Row).Delete
Else
ActiveCell.Offset(1, 0).Activate
End If
Loop
ActiveSheet.Range(current).Offset(1, 0).Activate
Loop
End Sub
Lo que esto hace es recorrer todas las líneas restantes utilizando ActiveCell como puntero a la fila que se está evaluando y almacenando la celda de fila "original" en la variable actual . Una vez que finaliza el ciclo, la celda debajo de la corriente se activa y el ciclo de evaluación interno comienza nuevamente.
Si me equivoqué en algún lugar, no dudes en decirme :)