check if next active row after filter is blank in specific column

[Admin]

Hi

If you are looking for numbers in Col G, replace

Set r = .Cells(1).Offset(1, 6).Resize(.Rows.Count - 1, 1).SpecialCells(xlCellTypeVisible)

with

Set r = .Cells(1).Offset(1, 6).Resize(.Rows.Count - 1, 1).SpecialCells(2, 1)

[xander1981]

Work great, thanks you