оптимизация кода макроса

[dendodor]

Добрый день. Заранее прошу камнями не бросаться в меня, ибо не программист я))). Есть следующая задача: в excel есть след столбцы:
1 - подразделение
2 - ФИО
3 и послед. - это некие данные

Так вот идет группировка по подразделению и ФИО, т.е. заполняется один раз и далее просто не заполняется ячейка в этом столбце до тех пор, пока не меняются данные в этом столбце.

Написал следующий макрос, чтоб автоматически заполнять такие пропущенные ячейки (это нужно для того, чтоб можно было в дальнейшем пользоваться автофильтром), но он выполняется очень медленно. Помогите оптимизировать, плиз.
Вот код:

Sub macros1()

Dim i As Long

i = 3
Do While IsEmpty(Cells(i, 3).Value) = False


If Cells(i, 2) = "" Then
Range(Cells(i - 1, 1), Cells(i - 1, 2)).Copy Cells(i, 1)
ElseIf Cells(i, 2) <> 0 And Cells(i, 1) = "" Then
Cells(i - 1, 1).Copy Cells(i, 1)
End If

i = i + 1
Loop

End Sub

[EducatedFool]

Посмотрите здесь способ попроще
http://www.planetaexcel.ru/techniques/2/96/

там в комментах к статье есть примеры кода

вот, например:

Sub FillEmtyCells()
    With ActiveSheet.UsedRange
        .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
        .Formula = .Value
    End With
End Sub

если надо только для 2 первых столбцов, - то так:

Sub FillEmtyCells()
    With intersect(ActiveSheet.UsedRange, range("a:b"))
        .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
        .Formula = .Value
    End With
End Sub