VBA if not instr

Hej

Jeg kan ikke vende denne kode så den sletter alle rækker der ikke indeholder ".xlsx" og "Regnskab"

Sheets("Patienter").Range("a65000").Select
Selection.End(xlUp).Select
Sidsterække = ActiveCell.Row

For Rækkenr = 2 To Sidsterække
Sheets("Patienter").Range("a" & Rækkenr).Select
  If  InStr(ActiveCell.Value, ".xlsx") And InStr(ActiveCell.Value, "Regnskab") Then
 

  ActiveCell.EntireRow.Select
  Selection.Delete Shift:=xlUp
  Sidsterække = Sidsterække - 1
  Rækkenr = Rækkenr - 1


  End If
  Next Rækkenr