It says there is an error with this line, error saying no cells were found

Set rngB = rng.SpecialCells(xlCellTypeBlanks)