Remove rows from.Just
rCell.EntireRow.Hidden = True
Rows(rCell).EntireRow.Hidden = True

Rows(rCell).EntireRow.Hidden = False