Pasting Cells with Filter on

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
Tue Aug 23 08:30:07 CDT 2005

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

--
Regards,
Tom Ogilvy

"Glenn" <nospam@yahoo.com> wrote in message
news:eCeRbS%23pFHA.3544@TK2MSFTNGP15.phx.gbl...
> 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?
>
>