VBA выполняет поиск различных значений строки в одном столбце и копирует / вставляет данные c в одну строку

Question

У меня есть эта книга Excel, которая содержит сотни записей, и в этом случае у человека может быть несколько записей, прикрепленных к его имени. Я хотел бы отсортировать эти записи и найти только конкретную информацию c и скопировать / вставить их в один ряд.

У меня есть этот пример кода, который может копировать / вставлять только значения всех значений в столбце:

Sub match_columns()
Dim I, total, fRow As Integer
Dim found As Range

total = Sheets(1).Range("A" & Rows.Count).End(xlUp).Row

For I = 1 To total
    answer1 = Worksheets(1).Range("A" & I).Value
 Set found = Sheets(2).Columns("K:K").Find(what:=answer1) 'finds a match
If found Is Nothing Then   
    Worksheets(1).Range("Q" & I).Value = "NO MATCH"
Else
    fRow = Sheets(2).Columns("K:K").Find(what:=answer1).Row
    Worksheets(1).Range("O" & I).Value = Worksheets(2).Range("O" & fRow).Value
    Worksheets(1).Range("P" & I).Value = Worksheets(2).Range("P" & fRow).Value
    Worksheets(1).Range("Q" & I).Value = Worksheets(2).Range("Q" & fRow).Value
 End If
Next I

End Sub

Я прилагаю образец того, как выглядит таблица Excel и как она должна быть в одной строке. Я ценю всю помощь и советы, которые вы могли бы предоставить.

Большое спасибо,

Чарльз.