Excel VBA: IF function and For loop

Hi, I wonder if you could help below:
I want the macros to do a For Loop and read through one column on the RawData page. then use if function to extract data onto three pages: 1 / 2 / 3.
1 for the data remarked with X,
2 with D, and
3 with M

The spreadsheets starts with only the RawData page. so when macro meets X page 1 will be created then D/2 and 3/M. When i log new data the macro will also refill the three pages with more X/D/M data.

I have tried below codes. But i have one issue. When the page of 1/2/3 was there, the nested IF jumps to else directly to create one rather than refill on the existed page
Can you please give me some help?
THanks Bin

Dim i As Integer
For i = 1 to 1000
'Loop the RawData page range of the number of rows in the column

'macro starts on the RawData page
IF activecell.value = "X" then
'loop all the pages in the workbook and look for sh/sh1/sh2
For Each sh in worksheets
-------IF sh.Name Like "1" Then 'detect if "1" was available in the workbook
-------Copy the data from RawData page over to "1"
-------Else sheets.add.name="X" and then copy the data over and go back to the RawData page
-------EndIF
-------Next

'then repeat the above codes in below for the Ds and Ms

ElseIf ActiveCell.Value = "D" then ...
For Each sh1 in worksheets
-------IF sh1.NameLike "2" then...

ElseIf ActiveCell.Value = "M" then ...
For Each sh2 in worksheets
-------IF sh2.NameLike "3" then...

End IF
Next