макрос_протягивание вверх от последней заполненной ячейки до первой в прерывающемся списке

[Alexsandrr]

Добрый день!
Коллеги, будте добры, подскажи!
Какой макрос позволяет протянуть вверх от последней заполненной ячейки в столбце "A" до ячейки "A2" в прерывающемся списке!

Необходимо протягивать значение вверх до первой встречающейся, далее тянють следующую.
от "ГОРЬК" к "КЛНГ" далее от "КЛНГ" к "МОСК" далее от "МОСК" к "С-ЗАП" далее от "С-ЗАП" к "Филиал"
Вот макрос, прошу дополнить:

Sub Протягивание()
    Range("A1").End(xlDown).Select
    Range(Selection, Selection.End(xlUp)).Select
    Selection.FillUp
End Sub

[DiemonStar]

Sub Fill()
  MaxRow = Range("A" & Rows.Count).End(xlUp).Row
  For I = MaxRow - 1 To 2 Step -1
    If Range("A" & I) = "" Then
      Range("A" & I) = Range("A" & I + 1)
    End If
  Next I
End Sub

[Alexsandrr]

Огромное спасибо DiemonStar, все работает!