[aESThete]

to Pelman

Код:

Sub SetIfEmpty()
    If Selection.Columns.Count = 1 And Selection.Rows.Count = 1 Then ' проверяем, что выбрана только 1 ячейка
        While Not IsEmpty(Selection.Value) ' пока не пустая
            ActiveCell.Next.Select ' выбираем следующую (Tab)
        Wend
        Selection.Value = "значение" ' наше значение
    End If
End Sub