Остановка Excel из автоматически заполняемых строк

Question

В настоящее время я использую фрагмент кода VBA для автоматического заполнения пустых ячеек в столбце C моего отчета.Единственное, что он будет автоматически заполнен после окончания моего набора данных.(В этом отчете несколько столбцов данных.) Чтобы остановить код VBA, я установил диапазон до C1500.Я бы предпочел, чтобы этот макрос просто автоматически останавливался, когда достигал строк без данных.Кто-нибудь знает, как изменить мой код для достижения этой цели?

Sub Macro1()
    mynumber = 1
    Dim r As Range, cell As Range
    Set r = Range(Range("C2"), Range("C1500"))
    For Each cell In r
        If cell.Value = OK Then cell.Value = mynumber
        mynumber = mynumber + 1
    Next
End Sub

Answer 1

Изменить

Set r = Range(Range("C2"), Range("C1500"))

на

Set r = Range(Range("C2"), Range("C" & Cells(Rows.Count, "C").End(xlUp).Row))