Проверка

[ZHDN]

Извиняюсь может вапрос звучит глупо. Как проверить есть значение в ячейки или нет? Дапустим Проверяем ячейку С4 если он пустая то записвваем в нее значение ячейки E4, если нет то переходим к ячейке C5 и проверяем ее и так до тех пор пока не окажится пустая ячейка в которую запишутся значения из ячейки E4.

[Jarik]

Sub A()
    N=100
    For i = N To 2 Step -1
        If IsEmpty(Cells(4, i - 1)) Then
            Cells(4, i - 1) = Cells(4, i)
        End If
    Next i
End Sub

Если я конечно, правильно понял условие

[ZHDN]

Sub Макрос1()
   If Range("E4").Value = 0 Then
   Range("C4").Value = Range("B1").Value
    End If
End Sub

вот так если ячейка пустая, а дальще не могу сообразить

[Hugo121]

Похоже, что Вам нужно вот это:

iLastRow = Range("C" & Rows.Count).End(xlUp).Row

Это будет номер ряда с последней заполненной ячейкой в C - поиск снизу.

[ZHDN]

Смотрите есть ячейка в которой хранятся данные дапусти она будет E4.

 
Если С4 пустая то 
С4 = Е4

Если С4 заполнена то
 проверяем С5
Если С5 заполнена то
Проверяем С6
Если С6 пустая
С6=Е4

[Hugo121]

Вы не поняли
Зайдём с другой стороны - смотрите, есть столбец с данными. Ищем снизу первую заполненную ячейку, потом можем к значению этого ряда прибавить 1 и писать данные туда.
Или наоборот - ищем сверху последнюю из непрерывного блока (т.е. до пустой ячейки):

iLastRow = Range("C4").End(xlDown).Row

[ZHDN]

все равно не че не понял блин. А куда эту строчку вставить то.

[Hugo121]

Пойдём сверху - т.е. в первую пустую:

Sub Макрос1()
Dim iLastRow As Long
iLastRow = Range("E4").End(xlDown).Row
Range("C" & iLastRow + 1).Value = Range("B1").Value
End Sub

или короче

Sub Макрос1()
Range("C" & Range("E4").End(xlDown).Row + 1).Value = Range("B1").Value
End Sub

Буквы B, C, E отслеживайте сами - я уже запутался, что именно нужно

[ZHDN]

run-time error "1004"
Method Range of object _Global failed

[Hugo121]

Ниже E4 данные занесите.
Ну или если возможен такой вариант, что данных ниже E4 нет - то нужно доп.проверку в код вводить, или искать снизу:
iLastRow = Range("E" & Rows.Count).End(xlUp).Row

В общем, принцип такой, а по месту нужно настроить.