Чтобы выбрать видимые строки:
Sheets("yourSheet").Rows.SpecialCells(xlVisible).Copy
Sheets("secondSheet").Range("A1").PasteSpecial xlPasteValues
но на самом деле вы можете затемнить что-то как строки, потому что свойство Rows возвращает диапазон, поэтому вы просто уменьшаете значение переменной как диапазон.
Если вы хотите очистить буфер обмена, используйте:
Application.CutCopyMode=False
Также обратите внимание, что неэффективно использовать копирование и вставку в Excel.
Вы должны назначить один диапазон другому, если можете.