perhaps...

[VBA]
Option Explicit

Sub InFlightProjects()

Dim ws1 As Worksheet, ws2 As Worksheet
Dim LR1 As Long, LR2 As Long, i As Long

Set ws1 = Sheets("Input")
Set ws2 = Sheets("In Flight Projects")

ws2.Range("B7:B" & Rows.Count).ClearContents

LR1 = ws1.Range("B" & Rows.Count).End(xlUp).Row
If LR1 < 7 Then MsgBox "No data to copy!": Exit Sub 'checks if a value exits after row 6 in col B

For i = 7 To LR
If ws1.Range("J" & i).Offset(, -1).Value = "P" And ws1.Range("J" & i).Offset(, 2).Value = "I" Then
LR2 = ws2.Cells(Application.Max(ws2.Cells(Rows.Count, "B").End(xlUp).Row + 1, 7))
' or???
'LR2 = ws2.Cells(Rows.Count, "B").End(xlUp).Row + 1
ws2.Cells(LR2, "B").Value = ws1.Cells(i, "J").Value
ws2.Cells(LR2, "C").Value = ws1.Cells(i, "K").Value
ws2.Cells(LR2, "D").Value = ws1.Cells(i, "O").Value
End If
Next i

ws2.Columns("A:M").EntireColumn.AutoFit

End Sub
[/VBA]