Copy/Paste and Sort Macro help

[Devin k]

Ok, I am hoping I attached the file with the sample data properly. I need to rearrange the data on the sheet "file test 1" into the format shown on "Sheet 1". I have already created a macro to insert the header on "Sheet 1", so that does not need to be done, I just put it in their so you would know which column headings correspond to the data. This rearrangement is based on the code column. Each code will have a set number of attributes(the data following the code) and the number of attributes changes with the change in code. This is only a small sample but if I could have someone help with the coding of a macro for this sample I think I can modify it for the rest of my codes and attributes (approx. 200). The macro will need to work on a file of undetermined size, the end of which is signified by a empty cell in column A.

Any help will be much appreciated

Thanks
Devin

[mrice]

Try this

Sub Test()
Sheet1.Activate
For N = 1 To Cells(1, 1).CurrentRegion.Rows.Count
    For M = 1 To Cells(1, 1).CurrentRegion.Columns.Count
        Select Case M
            Case 1 To 4
                Sheet2.Cells(N + 1, M) = Cells(N, M)
            Case Else
                TargetColumn = ""
                If InStr(Cells(N, M), "]") > 0 Then
                On Error Resume Next
                    TargetColumn = Sheet2.Rows(1).Find(What:=Left(Cells(N, M), InStr(Cells(N, M), "]") - 1), LookIn:=xlValues, LookAt:=xlPart, MatchCase:=False).Column
                    Sheet2.Cells(N + 1, TargetColumn) = Right(Cells(N, M), Len(Cells(N, M)) - InStr(Cells(N, M), "]"))
                On Error GoTo 0
                End If
            End Select
    Next M
Next N
End Sub

You may hit problems as there isn't a particularly good match betweeen the names of your columns and the the names of your parameters - there is always a danger of ambiguity with a partial match.