VBA Loop multiple criteria to correct sheets

Good morning everyone,

I'm running into some problems looping through more then one criteria. I have added a attachment am an trying to look the correct data to the correct sheet.

For example
If cell B2 is equal to 1, then copy and paste row onto sheet2 and delete row
If cell B2 is equal to 2, then copy and paste row onto sheet3 and delete row
If cell B2 is equal to 3, then copy and paste row onto sheet4 and delete row

Once the data in the row has been copy and pasted to the correct sheet, I would like to delete the row and continue until all the data has been looped.

Any help would be appreciated.

Thank you,

Pinstripe

Perhaps like this?

To test run macro "Move_Data"

Alf

Thanks Alf that worked awesome. I tried using it against the data that I had and I ran into a few problems. Sorry, I realized I should have attached the actual data that I was working on instead of a general example. I have attached an updated copy of what I am doing. I am looking to copy each ID to the correct ID sheet along with all the data in the row. Do you think you can help?

Sorry again Alf, but the code you did give my worked exactly like I asked in the first example.

Thanks AB33 that worked perfect, genius. Is there a way to delete each row after it pastes to the correct sheet? If not, its okay. I appreciate both of your guys help!

No problem.

Her comes an update with a modified macro so see if this fits the bill. As before run same macro.

Alf

Plese see adjusted Code

Pin,
I assumed that you do not want to clear the heading on sheet 1, but if you also want to delete every cell on sheet 1,
you can use this code,

Please Login or Register  to view this content.

instead of

Please Login or Register  to view this content.

Work great guys. I tried both and they are flawless. Thanks again for everything.