I'm attempting to copy and paste filtered data within a column.

I recieve and error message that the size of the area to be pasted is not the same as the size of the copied area.

[vba]Sheets("savedwork").Activate
Range("k2").Select
Cells(Rows.Count, 1).End(xlUp).SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("plantreportsheet").Activate
Range("a11").PasteSpecial (xlPasteValues) [/vba]

How may i overcome this error ?

Thanks.