Macro to copy rows (in a range) based on a cell criteria

Hi. I'm dealing with a problem. I have a worksheet that has several rows that starts with Back, Lay, Market P/L or Commision in collumn A.
The thing is i want to copy the rows in a range Ax:Gx (where x is the row number) and paste then (AS VALUES) in a new sheet (named DATA) in cell A1. But i want it to copy only the rows in that range where the cell in the collumn A starts as Back. If it says Lay, or Commision or Market P/L, that row in that range wont be copied.
The result would be a DATA sheet where from A1 to Ax with no gaps between all rows only be visible the rows which start as Back in A cell.
I attached a file with the data so its more perceptible,
If anyone could help i would be really apreciated.

Thank you.

Please Login or Register  to view this content.

@jaslake

Thank you for your idea. Didn't have though about the filters.... worked great and recorded the code and cleaned. The thing is when i copy the range may vary and i cant record this so have to change the code according to this sittuation and dont really know how to do that. But was a very good idea. Thank you.

@AB33

Your code is just so gracefull that works like a charm. Thank you.

For jaslake thank you for the idea but i think the AB33 is just what i need without much work.
Thank you both for the help.

Taislin,
You are welcome!

John,
You are right!
No need to loop through, but as I said on many occasions in this forum, I need to overcome my phobia for "Filter" and "Sorting".
Hopefully soon!

Thank you again for all responses. Dindt notice all fuzz around this after my last post. Just to say that i went back to jaslake option through autofilter, because the macro from AB33 was getting slow (maybe because the amount of data).
The autofilter option, i just made a macro that selects all data then filters the BACKS and copy then and paste as values in the other sheet and works really well.
The macro provided by mike7952 didnt worked. So i went for this solution.

Thank you all for the quick responses.

Taislin,
Part of the reason the code getting slow was that it copied an entire row, instead of specified range.
Change this line and should be able to see the difference in speed.

Please Login or Register  to view this content.

INTO

Please Login or Register  to view this content.

Mike,
Your code works too, but your loop missed the first row. I.e, Loop starts at 1 with the attached.

Hmmmm!
The only reason I can guess is that your output is in new sheet while the OP had expected in sheet called "DATA". This is just my poor guess.