После попытки найти последнюю заполненную строку мой макрос не остановится

Question

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

Worksheets("Inspections").Activate     

With Worksheets("Inspections")
    rowq = .Range("A" & .Rows.Count).End(xlUp).row
    Range(.Cells(3, 10), .Cells(rowq, 10)).Value = Range("L1").Value
End With

Answer 1

Я решил проблему с помощью этого кода.Все еще не уверен, почему оригинал не работал.

   With Worksheets("Inspections")
         rowq = Cells.Find(What:="*", _
                     After:=Range("A1"), _
                     LookAt:=xlPart, _
                     LookIn:=xlFormulas, _
                     SearchOrder:=xlByRows, _
                     SearchDirection:=xlPrevious, _
                     MatchCase:=False).row
         Range(.Cells(3, 10), .Cells(rowq, 10)).Value = Range("L1").Value
    End With