Выделяем столбец А - F5 (или Главная - Найти и выделить - Группу ячеек) - Выделить - Пустые ячейки - набираем на клавиатуре = и жмем стрелку вверх - жмем одновременно Контрл Ентер.
Снова выделяем столбец А - копируем - Спецвставка - Значения.
Затем удаляем лишнее снизу (если оно вдруг есть).
Или простенький макрос
[vba]Код
Sub Zapolnenye_Null()
On Error GoTo A
n = Selection.Address
If Range(n).Cells.Count - 1 Then
Selection.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
Range(n) = Range(n).Value
End If
A: Exit Sub
End Sub
[/vba]