Hi Arlette,
There is a problem in this line of the code,
NumFSRows = .Columns(1).Cells.SpecialCells(xlCellTypeVisible).Cells.Count - 1 'Subtract 1 for the Header
The count is coming to 1048571, which is invalid. Since after filtering for "FS" there are only 4 rows including the header