Easier Way than Filter/Copy/Paste

[helpexcel]

I have a macro that filters data based on column A, then copies A2:Dlastrow to another worksheet. Works fine, but was wondering if there is a way to look at the values in column A and then copy/paste the rows with the same values to a sheet with the same name as the values?
So in this example, it would copy each row with Apple to the sheet named Apple. thanks!

Fruit	Cost	Inventory	Type
Apple	1	3	Fuji
Apple	2	3	Pink Lady
Apple	3	3	Fuji
Apple	4	3	Fuji
Apple	5	3	Pink Lady
Apple	6	3	Pink Lady
Apple	7	3	Pink Lady
Apple	8	3	Granny Smith
Apple	9	3	Granny Smith
Apple	1	3	Granny Smith
Pear	1	10	Bartlett
Pear	2	10	Concord
Pear	3	10	Concord
Pear	4	10	Bartlett
Pear	5	10	Anjou
Pear	6	10	Anjou
Pear	7	10	Anjou
Pear	8	10	Bartlett
Pear	9	10	Concord
Orange	1	5	Navel
Orange	2	5	Navel
Orange	3	5	Blood
Orange	4	5	Blood
Orange	5	5	Mandarin
Orange	6	5	Mandarin

 

[Jeffrey Mahoney]

Yes, that's easy! Provide code

Can you just use pivot tables on separate sheets, each with their own filter for column A?

 

[Marc L]

​

Or just using an advanced filter …​

 

[helpexcel]

I don't want to use pivot tables because they can mess up the additional calculations I have the the Apple sheet. I'm basically using advanced filter now with the code, where it filters and then copies visable cells. I was trying to see if there was a quicker, more efficient way of writing the code. thanks!

 

[Marc L]

​

As using an advanced filter should be an efficient way with a pretty good coding so at least post your code via the VBA icon​

with the necessary elaboration in order there is nothin' to guess or link a workbook sample on a files host website like Dropbox …​