Pasting Cells with Filter on

[Glenn]

When I am using Auto - Filter and I copy a selection of cells and try to
paste them into another column, it appears to ignore the filter and pastes
the rows as if the filter weren't turned on. So, instead of the data only
going only into the visible rows where it belongs, it goes into the rows
hidden by the filter.

Is there a way around this?

 

[Tom Ogilvy]

set rng = Range("A2:A20").Specialcells(xlVisible)
for each ar in rng.areas
ar.offset(0,12).Value = ar.Value
Next