Loop to find a cell, then copy offset paste

Hello. Really new at VB in excel, and would love any help woth a work assignment.

I have a data sheet with employee information. Only one column. It prefixes information with codes, but keeps it in the same cell. I want to move data of certain types into their own columns, but the amount of data is variable, so I cannot simply move every Nth cell, etc.

i.e.

Employee#1
200 Firstname Lastname
204 99999999 (Employee ID)
G38 00005000 (i.e. Pension Deduction)
H38 00007580 (i.e. Benefits Deduction)
X96 00012099 (i.e. Staff Club Deduction)
Employee#2
200 Firstname Lastname
204 99999998
G38 00000775
X96 00001000

So you see some employees may have different codes altogether. But I know that I want all the cells that start with 200 to be offset (-1,1), and all the cells that start with 204 to be offset (-1,2), and so on so that basically I end up with columns of info instead of a one column list.

I have been reading and studying other peoples' macros, and am just starting to grasp the basic. When I wrote my own to accomplish this, I put this together, which doesn't work. But I don't know enough to know what I don't know.

 
Sub Macro1()
 
Dim x As Range
 
 
Do
Set x = Columns(1).Find("*200 *")
If x Is Nothing Then Exit Do
x.Select
Selection.Cut
ActiveCell.Offset(-1, 1).Select
Selection.PasteSpecial
Loop
End Sub

What I have so far finds what I am looking for, copies it but the paste fails.