          For Each c In copyRng.SpecialCells(xlCellTypeVisible)              If Len(c) <> 0 And Not ISIN(c, uniqueVal) Then _                  'Copy to destination Range                 c.Copy destRng                 