заполнение пустых строк в таблице

[amadeus017]

Доброго времени суток!
Подскажите пожалуйста, как с помощью макроса заполнить пустые строки в табличной части.
Имеющиеся данные выгружаются из Access в Excel (в примере выделено жирным шрифтом), необходимо заполнить пустые строки (в примере заполнение выделено красным шрифтом)
простым копированием получается очень долго, т.к. таблицы могут содержать тысячи наименований.
(Нашел похожую тему и скопировал от туда макрос, но так как я с программированием не в дружбе, сломал голову как сделать так чтобы все работало, а не выдавало мне ошибок)

Оригинальный макрос к файлу "Задача №1"

Public Sub www()
Dim a, i&, n%
a = [a1].CurrentRegion.Value
For i = 3 To UBound(a, 1)
If a(i, 1) = "" Then
For n = 1 To 8
a(i, n) = a(i - 1, n)
Next
End If
Next
[a1:g1].Resize(UBound(a)) = a
End Sub

Ниже макрос, который я хотел применить к своему файлу "Реестр_www", но выдает ошибки:
Public Sub www()
Dim a, i&, n%
a = [a1].CurrentRegion.Value
For i = 7 To UBound(a, 1)
If a(i, 1) = "" Then
For n = 1 To 27
a(i, n) = a(i - 1, n)
Next
End If
Next
[a1:aa1].Resize(UBound(a)) = a
End Sub

(Заполнить надо пустые строки со столбика "A" по "AA"

[alex77755]

Public Sub www()
    Dim a, i&, n%
    a = [a7].CurrentRegion.Value
    For i = 1 To UBound(a, 1)
        If a(i, 1) = "" Then
            For n = 1 To 27
                a(i, n) = a(i - 1, n)
            Next
        End If
    Next
    [a7].CurrentRegion.Value = a
End Sub

[amadeus017]

Доброго времен суток!
Ну что могу сказать...
УРАААА!!!! ВСЕ РАБОТАЕЕЕЕТ!!!!!!

Большое спасибо в решении данной задачи!