Удаление строк

[chipesca]

В общем случай такой:

Dim a&
With Worksheets(2)
   For a = 1 To 26000
      If .Cells(a, 1).Value = "" And .Cells(a, 2).Value = "" And .Cells(a, 3).Value = ""     Then
         For j = 1 To 36
         n = Worksheets(1).Range("AI" & j)
         Worksheets(2).Cells(a, n).Value = "x"
         Next
   Exit For
   End If
  Next
End With

Нужно сделать так, что бы записанная строка проверялась на совпадения с предыдущими и если совпадает то удалялась до столбца AFP(ну либо вовсе не записывалась).
Совпадение означает, что в записанной строке и в n строке в одних и тех же столбцах стоят "x".
Вот как-то так, и ещё этот код корявый.
Заранее спасибо.