АlехМ, Алексей, да был не совсем внимателен, показалось что Y захватывает не только первый столбец. Тогда другой вопрос. Алексей выдал два решения, которые имеют ограничения: Первое выдаст ячейку пустую за последней заполненной. То есть пропуски будут игнорироваться. Второе решение (интересно почему не формулой ), при наличии пропуска даст некорректный результат.
. то есть интересует первая незаполненная ячейка, даже если за ней заполнена?
Код
If Range("a25").End(xlDown).Row = 59 Then
If Range("a25").End(xlDown).Offset(-1) = "" Then
MsgBox .Range("a26").Address
Else
MsgBox "FullHouse"
End If
Else
MsgBox .Range("a25").End(xlDown).Offset(1).Address
End If