Copy & Paste Filtered Data

Hello All,

I am working with a spreadsheet that can have up to 60,000 lines. Every 10th line in Column "A" I need the term "Item". I have recorded a macro that allows me to filter on the term "Order Type" and that gives me every 10th line one above the other. When I manually copy and Paste "item" then it works perfectly. However, if I run the below macro then it puts the term "Item" into EVERY line that has data in it.

How can I get this to work? I wrote a macro that looked for the term "order Type" and would input "Item" next to it, but that took a very LONG time to execute. The filter method takes just a few seconds. Any help is greatly apprecaited.

Please Login or Register  to view this content.

jkelly,

First off you do not need to "SELECT" cells to do what you want.
All you need to do is add the SpecialCells(xlCellTypeVisible) to your Paste destination.

I don't have your complete code, but a snipit might look like this:

Please Login or Register  to view this content.

Hope this helps!

Chance2,

Sorry, I can't get it to work. I think it is the right track, but it doesn't actually filter on "Order Type". This starts in Column "B1". Here is the code

Please Login or Register  to view this content.

Not sure what I am doing wrong. Thank you for the help.

Chance2,

I actually found the problem. I had to change the Autofilter Fiedl:=2 that is the differnce that was needed. Thank you very much for your help. That is a world better in time on for my program.

I have similar questions for cut and paste on the same program, but that is a question for later. Thanks

Kelly