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

Question

Я новичок в VBA и пытаюсь создать выпадающий список имен (XXX, YYY, ZZZ и т. Д.) Людей из разных рабочих мест, затем вы можете выбрать одно имя из списка, а затем получить их строкиинформация для этого человека из Sheet7 скопирована и вставлена ​​в Sheet3, где находится строка поиска. Я не преуспел в этом и был бы признателен за помощь. Я сделал код более общим для имен и работы для этого поста. Заранее спасибо.

Private Sub CommandButton1_Click()
'On Error GoTo Cleanup
Application.ScreenUpdating = False: Application.EnableEvents = False

With Sheet3
    For i = .Cells(.Rows.Count, 3).End(xlup).Rows To 2 Step -1
    Select Case .Cells(i, 3).Value = c
        Case "XXX", "YYY", "ZZZ", "AAA", "BBB", "CCC", "DDD", "FFF", "GGG", "HHH", "III", "JJJ", "LLL", "MMM", "NNN"
        .Rows(i).Copy 
        End Select
With Sheet3
Dim lastrow As Long
lastrow = Range("A65536").End(xlUp).Row

Worksheets(i).Activate
Cells(lastrow + 1, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

End With
End With
'Cleanup:
'Application.ScreenUpdating = True: Application.EnableEvents = True

End Sub