Навеяно темой (перехожу к тому что я сводную копирую на другой лист как значения) И теперь необходимо заполнить пустые ячейки значениями расположенными в ячейке сверху. В примере довольно подробно описано что есть и что надо.
Sub sss()
r = Cells(Rows.Count, 2).End(xlUp).Row
On Error Resume Next 'нет пустых
With Range(Cells(2, 1), Cells(r, 1)).SpecialCells(4)
For Each x In .Areas
x(1).Resize(x.Count).Value = x(1).Offset(-1).Value
Next x
End With
End Sub