Кор-ка Макроса_протягивание верхних значений сверху вниз

[Alexsandrr]

Друзья, прошу Вас подправить данный макрос.
Он выполняет функцию протягивания в столбце "С" нижние значения снизу вверх от одного значения до другого в прерывающемся списке. В файле имеется загруженный макрос, можете посмотреть.
Мне нужно чтобы макрос таким же образом тянул верхние значения сверху вниз, прошу Вас подправить макрос.
Sub dfg()
MaxRow = Range("C" & Rows.Count).End(xlUp).Row
For i = MaxRow - 1 To 2 Step -1
If Range("C" & i) = "" Then
Range("C" & i) = Range("C" & i + 1)
End If
Next i
End Sub

[IgorGO]

подправил

Sub протягивание1()
  With Cells(1, 3).Resize(Cells(Rows.Count, 3).End(xlUp).Row, 1)
    On Error Resume Next: .SpecialCells(4).FormulaR1C1 = "=r[1]c": On Error GoTo 0
    .Copy: Cells(1, 3).PasteSpecial xlPasteValues: Application.CutCopyMode = False
  End With
End Sub

[Alexsandrr]

проверяю чуть позже отпишусь

[IgorGO]

а можно на файл посмотреть, в котором это не работает?

[Alexsandrr]

Макрос работает вот так, тянет по прежнему нижние значения вверх только на одну ячейку дальше ставит нули.
до после (работа макроса)
1 1
0
0
0
0
2
2 2
0
0
0
0
3
3 3
0
0
0
0
4
4 4

Прошу Вас доработать

[IgorGO]

загрузите себе файл, который Вы выложили в первом сообщении, скопируйте в него макрос и выполните. скажете, что не получилось.

[Alexsandrr]

Вот пожалуйста посмотрите

[Hugo121]

У меня нули не ставит...
Думаю нужно просто минус поставить, вот тут: [-1]

[IgorGO]

Игорь, у меня тоже все правильно заполняет.
берем значение снизу и заполняем им пустые ячейки вверх (т.е. там таки [1]).
у ТС почему-то только по одному значению прописывает , остальные не просчитаны, там нули(((
допускал, что причина в данных, но нет.
теперь причину надо "удаленно" найти в настройках ексель, а вот тут идей пока нет(((

кто-то еще смог получить результат, как показано у Alexsandrr?

[maksim_serg]

мимо проходил, у меня тоже нули:
1
0
0
0
0
2
2
0
0
0
0
3
3
0
0
0
0
4
4