Макрос присваивает каждому диапазону 1-ый элемент

[DJTreeno]

Доброго всем времени суток!!!

Помогите с этим кодом:

Dim r4 As Range, i4&
i4 = WorksheetFunction.Sum(Range("Y1:Y" & Cells(Rows.Count, "Y").End(xlUp).Row)) 'Получает количество заполненных строк
'MsgBox i
With Application
.ScreenUpdating = 0: .DisplayAlerts = 0
For Each r4 In Range("G1:G" & i4).Areas.Item(1)
If r4.Text = 0 Then Range(r4, r4.Offset(-1)).Value = ???
Next
.ScreenUpdating = 1: .DisplayAlerts = 1
End With


Условие в этом макросе соблюдается, то есть имеется диапазон
1
0
0
0
2
0
0
0
0
3
0
0
0
0
0
Программа знает, что в первом диапазоне 4 строки, во втором 5 строк, в третьем 6 строк. Нужно чтоб делала вот так:
1
1
1
1
2
2
2
2
2
3
3
3
3
3
3
Как откорректировать код, пожалуйста помогите!

[DJTreeno]

ГГГ))) Сам себе отвечаю))) Ура!!! получилось

If r4.Text = 0 Then Range(r4, r4.Offset(0)).Value = Range(r4, r4.Offset(-1)).Item(1)

[IgorGO]

а так пойдет?:

for r = 2 to WorksheetFunction.Sum(Range("Y1:Y" & Cells(Rows.Count, "Y").End(xlUp).Row))
  if cells(r,7) = 0 then cells(r,7) = cells(r-1,7)
next

[Казанский]

"Ленивый" метод без цикла:

Application.ReferenceStyle = xlR1C1
With Range("Y1", Cells(Rows.Count, "Y").End(xlUp))
    .Replace 0, "=R[-1]C", xlWhole
    .Value = .Value
End With
Application.ReferenceStyle = xlA1