Copying Visible Cells and pasting to another worksheet

**Gard5096** · 09-19-2012, 11:07 AM

I am trying to have the range to be copied by SpecialCells(CellTypeVisible). How can I incorporate this into the 2nd line of coding (...Range) without getting an error? The data is already filtered.

Please assist.

With Worksheets("MOD")
    lrow = .Range("U" & .Rows.Count).End(xlUp).Row
    .Range("U2:U" & lrow).Copy Sheets("NO WELCOME OR 30MDL").Range("A" & .Rows.Count).End(xlUp).Offset(1, 0)
End With

**HaHoBe** · 09-19-2012, 02:02 PM

Hi, Gard5096,

should work with

With Worksheets("MOD")
    lrow = .Range("U" & .Rows.Count).End(xlUp).Row
    .Range("U2:U" & lrow).SpecialCells(xlCellTypeVisible).Copy _
        Sheets("NO WELCOME OR 30MDL").Cells(Sheets("NO WELCOME OR 30MDL").Cells(Rows.Count, "A").End(xlUp).Row + 1, "A")
End With

Ciao,
Holger