Макрос должен вернуть true или false в зависимости есть в ячейке целое число или нет
например:
2.3 ->false
увуак ->false
2 ->true
34акввап ->false
___________________
k = x = CInt(Cells(shag, 1).Int) - работает только если числа