Макро-цикл VBA через встроенные значения ActiveCell

Question

Я пытаюсь найти лучшее решение для более динамического цикла по ячейке с динамическим списком значений из соединения с базой данных.В ячейке «B3» есть раскрывающийся список элементов, которые я хочу просмотреть, и при выборе определенного элемента он обновляет рабочий лист, чтобы отразить значения этих элементов (выберите * из таблицы, где Item = X).Количество элементов меняется за квартал, так как они представляют собой список свойств, которые мы оцениваем.Иногда их 50, иногда 5.Как мне изменить этот код, чтобы мне не нужно было идти в макрос и обновлять цикл For i = 1 до 49?Я хочу, чтобы он просто мог либо запросить список элементов и найти количество элементов, либо выполнить цикл «В то время как» и перебрать все значения до последнего.

Dim strfindrow As String
For i = 1 To 49
    Range("B3").Select
    strfindrow = "=DATA_PROPERTY!R[" + Trim(Str(i - 2)) + "]C[-1]"
    ActiveCell.FormulaR1C1 = strfindrow
    Range("B3").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
Next
End Sub

Answer 1

Чтобы найти последнюю строку, также по этой ссылке: Ошибка при поиске последней использованной ячейки в VBA

With ThisWorkbook.Worksheets("sheet name")
    LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row ' if col is "A"
End With