Se eu entendi corretamente, dadas as linhas 1 e 2, você deseja excluir uma linha 2 se e somente se A1 = A2, C1 = C2, D1 = D2, E1 = E2 e F1 = F2.
Isto é o que eu vim com. Provavelmente poderia ser mais curto, mas funciona:
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
O que isso faz é percorrer todas as linhas restantes usando o ActiveCell como um ponteiro para a linha que está sendo avaliada e armazenando a célula da linha "original" na variável atual . Quando o loop termina, a célula abaixo da corrente é ativada e o loop de avaliação interna é iniciado novamente.
Se eu errei em algum lugar, não hesite em me dizer :)