Sub NewMacros()
'' Author:  boa
'' Written: 11.07.2019
'' Edited:
'  Description:
Dim AutoCalculat
Dim iRow&, LastRow&
Dim ArrayIndicators As Range, Indicator As Range
    With Application
        .ScreenUpdating = False              'Обновление экрана, чтобы ничего не мигало.
        .EnableEvents = False                'Не обрабатывать события.
        AutoCalculat = .Calculation: .Calculation = xlManual            'Включает ручной пересчет.
    End With

    With Worksheets("Книга 2")
        LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
        Set ArrayIndicators = .Range("A2:A" & .Cells(2, 1).End(xlDown).Row)
    End With
    
    With Worksheets("Книга 1")
        For Each Indicator In ArrayIndicators
             LastRow = LastRow + 1
             For iRow = 7 To .Cells(.Rows.Count, 1).End(xlUp).Row
                 If .Cells(iRow, 32) = Indicator Then
                     LastRow = LastRow + 1
                     .Rows(iRow).Copy Worksheets("Книга 2").Cells(LastRow, 1)
                 End If
             Next
        Next
    End With

    With Application
        .ScreenUpdating = True
        .EnableEvents = True
        .Calculation = AutoCalculat
    End With
End Sub