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