Получить все строки, соответствующие значениям из другой таблицы

Question

У меня есть столбец чисел в Sheet ID У меня есть целая таблица в Sheet REG, в которой мне нужно найти все строки, в которых числа в ID листа появляются в SHeet REG Column G;и, наконец, получить дамп данных на другой лист.

Я пытаюсь отфильтровать столбец G в Sheet REG по значению одной ячейки в ID листа;скопируйте все отфильтрованные данные и вставьте их на третий лист.Удалите фильтр и выполните цикл для последующих чисел.

Sub FIND()
    Dim c As Range

    Dim REG As Worksheet
    Dim ID As Worksheet
    Dim TEMP As Worksheet
    Dim TEMP2 As Worksheet
    Dim i As Integer
    Dim j As Integer      

    Application.ScreenUpdating = False

    Set REG = Sheets("REG")
    Set ID = Sheets("ID")
    Set TEMP = Sheets("TEMP")
    i = 1

    For Each c In ID.Range("A2", ID.Range("A1").End(xlDown).Address)
        REG.AutoFilterMode = False
        chk = REG.Range("A1:AD1").AutoFilter(7, c.Value)

        REG.Range(("A1"), REG.Range("A1").End(xlDown).End(xlToRight)).Copy

        TEMP.Select
        TEMP.Cells(i, 1).Select
        ActiveSheet.Paste
        Application.CutCopyMode = False

        i = TEMP.Range("A1").End(xlDown).Row + 1        
    Next c

    Application.ScreenUpdating = True   
End Sub

Каждая строка в SHeet REG, где появляется номер в столбце 1 идентификатора SHeet ID между ними, между началом или концом, все строки должны отображаться на моем третьем листе.

То же самое для всего списка чисел.Могут быть случаи, когда номер не найден.