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

[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

[Aleksandr H.]

Точно хотите макроса? Может стандартными средствами лучше?
https://www.youtube.com/watch?v=zspnGJ-s6tc

Ну или так как-то, для вашего примера

Sub newMakro()
    Dim r As Long
    r = Cells(Rows.Count, 3).End(xlUp).Row 
    Range("B2:B" & r).SpecialCells(xlCellTypeBlanks).Select
    Selection.FormulaR1C1 = "=r[-1]c"
    Application.CutCopyMode = False
End Sub

[dendodor]

Класс. Этого вполне достаточно. СПАСИБО!!! А подскажите, плиз, еще как сохранить название книги по подразделению + дата, т.е. когда отфильтрую исходную книгу по подразделению, мне надо все данные по этому подразделению перенести в другую одноименную книгу и добавить дату (или диапазон дат)?

[Aleksandr H.]

пришлите на Devid17@inbox.ru файл с данными - наваяю макроса.