Sub Airline()
Dim счёт As Double, i As Integer
Application.ScreenUpdating = False
счёт = [e8]
[e11:f30].ClearContents
With Sheets(1)
i = 5
Do
If .Cells(i, 11) = счёт Then Sheets(2) .Cells([e100].End(xlUp).Row + 1, 5) = .Cells(i, 9)
If .Cells(i, 12) = счёт Then Sheets(2) .Cells([f100].End(xlUp).Row + 1, 6) = .Cells(i, 9)
i = i + 1
Loop While .Cells(i, 3) <> ""
End With
Application.ScreenUpdating = True
End Sub