Dim pi As New ProgressIndicator ' создаём новый прогресс-бар pi.Show "Подождите, работает макрос" ' отбражаем индикатор 

' код макроса 
Application.ScreenUpdating = False 
Range("B22".Select 
Selection.AutoFill Destination:=Range("B2200", Type:=xlFillDefault 
Range("B2200".Select 
Range("B201201".Select 
Selection.AutoFill Destination:=Range("B201400", Type:=xlFillDefault 
Range("B201400".Select 
Range("E2".Select 
ActiveCell.FormulaR1C1 = "1" 
Selection.AutoFill Destination:=Range("E2:E400", Type:=xlFillDefault 
Range("E2:E400".Select
Range("C1".Select 

'Dim rng As Range 
With ThisWorkbook.Worksheets("раскрой двп".Range("C:C" 
Set Rng = .Find(0, , LookIn:=xlValues, lookat:=xlWhole) 
If Not Rng Is Nothing Then 
Do 
Rng.EntireRow.Delete 
Set Rng = .FindNext() 
Loop While Not Rng Is Nothing 
End If 
End With 

For Each cell In Sheets("раскрой двп".Range("A2200" 
cell.Formula = cell.Value 
Next cell 

pi.Hide ' закрываем индикатор' 
End Sub