Figurd it out!
With ThisWorkbook.Sheets("Master")
.AutoFilterMode = False
.Range("A2:Z2").AutoFilter Field:=6, Criteria1:="John"
.Range("A2:Z2").AutoFilter Field:=8, Criteria1:="Desktop"
' Copy and paste NBK, first name, last name
.Range("A3:C" & LastRow).Copy
ActiveWorkbook.Sheets("Sheet1").Range("A" & NextHeaderRow + 5).PasteSpecial xlPasteValues
' Copy and paste email
.Range("E3:E" & LastRow).Copy
ActiveWorkbook.Sheets("Sheet1").Range("D" & NextHeaderRow + 5).PasteSpecial xlPasteValues
End With