Найти последнюю строку, стирая заголовок

Question

Если ячейка a2 пуста под кодом, стереть заголовок, и если я добавлю +1, продолжайте добавлять ноль

Могу ли я найти последнюю пустую строку без стирания заголовка, даже если a2 пуст?(a1 - заголовок) Спасибо

Dim lastrow As Long

lastrow = Cells(Rows.Count, "a").End(xlUp).Row

With Range("a2:a" & lastrow)

End With

Answer 1

Вот более надежная альтернатива моему предложению в комментариях.Таким образом, lastrow никогда не будет меньше 2.

Sub x()

Dim lastrow As Long

lastrow = Cells(Rows.Count, "a").End(xlUp).Row
lastrow = WorksheetFunction.Max(2, lastrow)
With Range("a2:a" & lastrow)
    .Value = 1
End With

End Sub