Данные поиска VBA на основе списка

Question

У меня есть таблица данных, которую я хочу найти и вернуть их значения на основе списка.Я могу найти список из G2 и вернуть значение в K2 и т. Д., Но мне нужно, чтобы он также циклически отображался в списке и получал следующий элемент в списке, в данном случае D030 и добавлял результаты в K4 и т. Д..... помогите пожалуйста?

Данные

Вот код:

Sub finddatalist()

Dim RCP As String
Dim finalrow As Integer

Dim i As Integer

Sheets("Data").Range("K2:N1000").ClearContents

RCP = Sheets("Data").Range("G2").Value

finalrow = Sheets("Data").Range("A10000").End(xlUp).Row

For i = 2 To finalrow
    If Cells(i, 1) = RCP Then
        Range(Cells(i, 1), Cells(i, 4)).Copy
        Range("K100").End(xlUp).Offset(1, 0).PasteSpecial xlPasteFormulasAndNumberFormats
        End If

Next i

End Sub

Answer 1

finalrow = Sheets("Data").Range("A10000").End(xlUp).Row
finalrowProject = Sheets("Data").Range("G10000").End(xlUp).Row

For n = 1 To finalrowProject
    For i = 2 To finalrow
        If Cells(i, 1) = Sheets("Data").Cells(n, 7) Then
            Range(Cells(i, 1), Cells(i, 4)).Copy
            Range("K100").End(xlUp).Offset(1, 0).PasteSpecial xlPasteFormulasAndNumberFormats
        End If
    Next i
Next n