Как найти изображения из другого листа, связанного с определенным номером, и вставить их в мой пользовательский интерфейс?

Question

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

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

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

Нужно ли организовывать картинки определенным образом, чтобы это работало? Я попытался записать макрос, и это код, который он мне дал.

Sub Move_Pictures()
'
' Move_Pictures Macro

    Sheets("Sheet2").Select
    ActiveWindow.SmallScroll Down:=-12
    Selection.Copy
    Sheets("User Interface").Select
    Range("A8").Select
    ActiveSheet.Paste
    Sheets("Sheet2").Select
    Selection.Copy
    Sheets("User Interface").Select
    Range("H8").Select
    ActiveSheet.Paste
    Sheets("Sheet2").Select
    Selection.Copy
    Sheets("User Interface").Select
    Range("P8").Select
    ActiveSheet.Paste
    Sheets("Sheet2").Select
    ActiveWindow.SmallScroll Down:=18
    ActiveSheet.ChartObjects("Chart 49").Activate
    ActiveSheet.ChartObjects("Chart 49").Activate
    ActiveChart.ChartArea.Copy
    Sheets("User Interface").Select
    ActiveWindow.SmallScroll Down:=15
    Range("A22").Select
    ActiveSheet.Paste
    Sheets("Sheet2").Select
    ActiveWindow.SmallScroll Down:=15
    Selection.Copy
    Sheets("User Interface").Select
    Range("J22").Select
    ActiveSheet.Paste
    Sheets("Sheet2").Select
    ActiveWindow.SmallScroll Down:=21
    ActiveSheet.ChartObjects("Chart 82").Activate
    ActiveSheet.ChartObjects("Chart 82").Activate
    ActiveChart.ChartArea.Copy
    Sheets("User Interface").Select
    ActiveWindow.SmallScroll Down:=15
    Range("A40").Select
    ActiveSheet.Paste
End Sub

Когда я выполняю этот макрос, он выбирает изображения и просто помещает их в мой пользовательский интерфейс, но изображения не те, которые мне нужны, и он не работает с моим выпадающим списком. Если бы кто-то мог разобраться в этом, я был бы очень признателен. Заранее спасибо!

Вкладка данных листа Excel

Пользовательский интерфейс Excel Sheet

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