Can I take it that you're only doing this job once? If so, it will almost
certainly be quicker to do it by hand than by writing code.

One facility that probably will help is auto-filter. If you have a sheet
that you need to split up, you can auto-filter for the first  choice, then
create a new sheet  for that selection and copy the visible rows across.
Then filter for the next choice and repeat.

The nice thing about auto-filter is that the little drop-down shows you all
unique values for the column, so you know in advance how many you're dealing
with. You can also spot misspellings from this drop-down with ease, then
filter on the bad one and change it to good, then filter on the proper one
and deal with them all, together.