Как l oop через столбец и перечислить имена полей с указанным значением c на отдельном листе с Excel VBA?

Question

В настоящее время я создаю инструмент проверки с использованием Excel, чтобы проверить, соответствуют ли данные, перенесенные в базу данных (место назначения), данным из источника.

Инструмент работает, напрямую копируя таблицы из источника и места назначения и вставляя их в предопределенное место в инструменте.

Фиксированные формулы, которые автоматически сравнивают данные эквивалентных полей из двух таблиц, и в инструменте присутствует столбец, который показывает MATCH, если данные совпадают, и NOT MATCH, если данные разные.

Я планирую добавить еще один лист, который будет go через столбец MATCH/NOT MATCH, и перечислить имена полей, в которых есть значение NOT MATCH.

Я знаю, что это можно сделать с помощью VBA, но я мало знаю об этом и только начал узнавать об этом сегодня.

У меня уже есть лента разработчика, но есть небольшие проблемы при создании кода. Может ли кто-нибудь помочь мне с этим?

Это код, который я создавал до сих пор, и я не уверен, что он даст ожидаемый результат:

Sub Test()
      Dim x As String
      Dim found As Boolean
      Range("F3").Select
      x = "NOT MATCH"
      found = False
      Do Until IsEmpty(ActiveCell)
         If ActiveCell.Value = x Then
            found = TRUE
            Exit Do
         End If
     End Sub

Пример данных в Таблице

Ожидаемый результат в сводной ведомости