Поиск не совпадений срок

[FoxRiver]

Сообщение от Казанский

Так лист Расхождение есть или его надо создать, если найдены несовпадающие суммы?
Если лист уже есть - стереть имеющуюся информацию или дописать в конец?
Вообще, задача решается с помощью ВПР и автофильтра (или расширенного фильтра).

Лист Расхождения есть. Этот лист изначально будет пустым. Но при запуске макроса, любые найденные расхождения должны дописываться построчно (если в первой строке уже есть данные, то запись идет на вторую строку итд).
За вложенный пример огромное спасибо! Если можете помогите плз сделать эту реализацию макросом..

[Казанский]

Пробуйте

Sub Fox()
Dim x, d As Range
  On Error Resume Next
  Worksheets("Расхождение").Activate
  If Err Then Stop 'Не найден лист Расхождение
  On Error GoTo 0
  Set d = Cells(Rows.Count, "A").End(xlUp).Resize(, 3)
  If d(1) <> "" Then Set d = d.Offset(1)
  Application.ScreenUpdating = False
  With Worksheets(1)
    .Rows(1).Insert
    .Range("A1:C1") = Split("a b c")
    .Range("C2:C" & .Cells(.Rows.Count, "A").End(xlUp).Row).Formula = _
      "=VLOOKUP(A2,'" & Worksheets(2).Name & "'!A:B,2,)"
    .Range("E2").Formula = "=C2<>B2"
    .Range("A1:C1").Copy d
    .Range("A:C").AdvancedFilter xlFilterCopy, .Range("E1:E2"), d, False
    .Rows(1).Delete
    .Range("C:E").Delete
  End With
  x = d.Row - Cells(Rows.Count, "A").End(xlUp).Row
  d.EntireRow.Delete
  Application.ScreenUpdating = True
  If x = 0 Then MsgBox "Расхождений не найдено", vbInformation
End Sub

[FoxRiver]

Казанский

Спасибо большое!