[VBA Excel] Проверьте, какую ячейка пуста затем заполнить

Question

Guys У меня есть проблема :(

Я хочу, чтобы преуспеть, чтобы найти ближайшую пустую ячейку в том написать число в этой ячейке. Затем идет друг право -> и введите другой номер

Кто-нибудь мне помочь: D

Answer 1

к ближе, я имею в виду ближе всего кA1:

?

Sub dural() 
    Dim r As Range 
    On Error GoTo bottom 
    Set r = Range("A:A").Cells.SpecialCells(xlCellTypeBlanks)(1) 
    r.Value = "a number" 
    r.Offset(0, 1).Value = "another number" 
    Exit Sub 
bottom: 
    Set r = Cells(Rows.Count, "A").End(xlUp).Offset(1, 0) 
    r.Value = "a number" 
    r.Offset(0, 1).Value = "another number" 
    On Error Resume Next 
End Sub