Change
NumFSRows = .Columns(1).Cells.SpecialCells(xlCellTypeVisible).Cells.Count - 1
to
NumFSRows = .Columns(1).Cells.SpecialCells(xlCellTypeVisible).Cells.Count.end(xlup).row- 1