Unfortunately throws a "1004" error on

For Each icell In ws1.Range("A1:A" & LR).SpecialCells(xlCellTypeConstants, xlNumbers)