Garder seulement les indices 2 ou 3..

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Application.EnableEvents = False
On Error Resume Next 'sécurité
Range("A3:F" & Rows.Count).Delete xlUp 'RAZ
[N3] = "=(K3>7)*OR(M3=2,M3=3)" 'critère du filtre
With Intersect(Range("H2:M" & Rows.Count), UsedRange.EntireRow)
  .AdvancedFilter xlFilterInPlace, [N2:N3] 'filtre avancé
  .Copy [A2]
End With
[N3] = ""
ShowAllData
Application.EnableEvents = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Application.EnableEvents = False
On Error Resume Next 'sécurité
Range("A3:F" & Rows.Count).Delete xlUp 'RAZ
[N3] = "=(K3>7)*OR(M3=2,M3=3)" 'critère du filtre
Intersect(Range("H2:M" & Rows.Count), UsedRange).AdvancedFilter xlFilterCopy, [N2:N3], [A2:F2] 'filtre avancé
[N3] = ""
Application.EnableEvents = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Application.EnableEvents = False
On Error Resume Next 'sécurité
Range("A3:F" & Rows.Count).Delete xlUp 'RAZ
[N3] = "=(K3>7)*OR(M3=2,M3=3)" 'critère du filtre
Range("H2:M" & Rows.Count).AdvancedFilter xlFilterCopy, [N2:N3], [A2:F2] 'filtre avancé
[N3] = ""
Application.EnableEvents = True
End Sub

Private Sub Worksheet_Change(ByVal r As Range)
Dim lig&
lig = 3 '1ère ligne à renseigner
Application.EnableEvents = False
For Each r In Range("A1:M1", UsedRange).Rows
  If Val(CStr(r.Cells(11))) > 7 And (CStr(r.Cells(13)) = "2" Or CStr(r.Cells(13)) = "3") _
    Then r.Cells(8).Resize(, 6).Copy Cells(lig, 1): lig = lig + 1
Next
Range("A" & lig & ":F" & Rows.Count).Delete xlUp 'RAZ en dessous
Application.EnableEvents = True
End Sub

Private Sub Worksheet_Change(ByVal r As Range)
Dim source, rest(), i&, n&, j%
If FilterMode Then ShowAllData 'si la feuille est filtrée
source = Range("H3", Range("M" & Rows.Count).End(xlUp)(3)) 'matrice, plus rapide
ReDim rest(1 To UBound(source), 1 To 6)
For i = 1 To UBound(rest)
  If Val(CStr(source(i, 4))) > 7 And (CStr(source(i, 6)) = "2" Or CStr(source(i, 6)) = "3") Then
    n = n + 1
    For j = 1 To 6
      rest(n, j) = source(i, j)
    Next
  End If
Next
Application.EnableEvents = False
If n Then [A3].Resize(n, 6) = rest 'restitution
Range("A" & n + 3 & ":F" & Rows.Count) = "" 'RAZ en dessous
Application.EnableEvents = True
End Sub