Set RG = Sheets("ARTI").Range("C21", Sheets("ARTI").Range("C21").End(xlDown)).SpecialCells(xlCellTypeVisible)