Place this code in the module of the sheet with columns M to O
Sub SamT()
'For Help, see: "http://www.vbaexpress.com/forum/showthread.php?53544-Combine-and-sort-2-columns"
Dim Cel As Range
Dim rw As Long
Dim sheet2 As Worksheet
Set sheet2 = Sheets("Sheet2")
rw = 5
For Each Cel In Range(Range("M7"), Range("M" & Rows.Count).End(xlUp))
If Cel = 1 And _
Cel.Offset(0, 1).Value <> "" And _
Cel.Offset(0, 2).Value <> "" Then
Cel.Offset(0, 1).Resize(0, 2).Copy sheet2.Range("D" & rw)
rw = rw + 1
End If
Next Cel
sheet2.Range(Range("D5"), Range("E" & Rows.Count).End(xlUp)).Sort _
Key1:=Range("D5"), Order1:=xlAscending, _
Key2:=Range("E5"), Order2:=xlAscending, _
Header:=xlGuess
'Key2 line in case two flights departing same time, returning different times
End Sub