Как найти значение в столбце и вставить диапазоны из других листов в соседние столбцы

Конечная цель моего проекта заключается в том, чтобы пользователь мог выбрать значение в ComboBox , чтобы заполнить отчет на вкладке «Сводка». Отчет будет состоять из 3, 3 диапазонов ячеек (разделенных на 3 диапазона 1x3 на 3 отдельных листах).

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

Я попробовал несколько разных способов сделать это, но я включу код, над которым я работал в последнее время:

Private Sub OKButton1_Click()
Dim userValue, rangeOne, rangeTwo, rangeThree
Dim i As Long

i = 4


userValue = ComboBox1.Value
Set rangeOne = Sheets("Sheet2").Range(Range("F23:H23")
Set rangeTwo = Sheets("Sheet3").Range("F90:H90")
Set rangeThree = Sheets("Sheet4").Range("F17:H17")



While Sheets("Reports").Range(cells(i,1)).Value <> "" 
      If Sheets("Reports").Range(cells(i, "A")).Value = "userValue" Then

         Set Sheets("Reports").Range(Cells(i, "B:E")) = rangeOne
         Set Sheets("Reports").Range(Cells(i, "F:I")) = rangeOne
         Set Sheets("Reports").Range(Cells(i, "J:M")) = rangeOne
      End If
      i = i + 1
Wend
Unload UserForm2
End Sub 

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

1
работать с методом Range.Find docs.microsoft.com/en-us/office/vba/api/Excel.Range.Find
добавлено автор 0m3r, источник
Я попробую, есть ли что-то, что я должен изменить, установив диапазон ячеек на листе «Отчеты» равным 3 наборам диапазонов, которые находятся на трех других листах? Я использовал цикл While, чтобы получить значение строки для диапазона, чтобы я мог вставить значения
добавлено автор Valkeif, источник