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