Autofilter Rows short of Requested Range

[jim may]

The below is extracted code (from a standard module)

....
Dim flr as Long
....
Application.ScreenUpdating = False
Application.Calculation = xlManual
......

Range("G2").Select
  
  flr = Range("D" & Rows.Count).End(xlUp).Row  
    Range("G2:G" & flr).Formula = "=ISNUMBER(A2)"
    Range("A1:G" & flr).AutoFilter Field:=7, Criteria1:="FALSE"
    Range("A1").Select
    ActiveCell.Offset(1, 0).Rows("2:" & flr).EntireRow.Delete
    ActiveSheet.ShowAllData
.....
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

My flr variable is assigned 6338, yet the actual Filtered-rows - going by the "blue" row-headers is stopping at 4184. My Col G (Field:=7) rows 2-4184 are 100% False, but between rows 4185 and 6338 (not being picked up in A/F) are showing multiple FALSE and TRUE Values. Which means the TRUE values in rows 4185-6338 are getting deleted, and should NOT!! Does anyone see something that can be done to fix this? TIA, Jim

 

[jim may]

Adding this one line (in red) seems to correct things... Tks..

flr = Range("D" & Rows.Count).End(xlUp).Row
    Range("G2:G" & flr).Formula = "=ISNUMBER(A2)"
    ActiveSheet.AutoFilterMode = False  'add to re-set A/F in next line
    Range("A1:G" & flr).AutoFilter Field:=7, Criteria1:=False
    Range("A1").Select