Gfrktyl

I have the following code which moves data from a mastersheet to different sheets after grouping them with a unique code in the first column. I need to arrange the output in a specific order by referencing another excel(output sheets to be ordered as per the column values in the excel to be referred). Can anyone help.

Sub parse_data()



    Dim lr As Long

    Dim ws As Worksheet

    Dim vcol, i As Integer

    Dim icol As Long

    Dim myarr As Variant

    Dim title As String

    Dim titlerow As Integer

    vcol = 1

    Set ws = Sheets("Test Data1")

    lr = ws.Cells(ws.Rows.Count, vcol).End(xlUp).Row

    title = "A1:J1"

    titlerow = ws.Range(title).Cells(1).Row

    icol = ws.Columns.Count

    ws.Cells(1, icol) = "Unique"

    For i = 2 To lr

    On Error Resume Next

    If ws.Cells(i, vcol) <> "" And Application.WorksheetFunction.Match(ws.Cells(i, vcol), ws.Columns(icol), 0) = 0 Then

    ws.Cells(ws.Rows.Count, icol).End(xlUp).Offset(1) = ws.Cells(i, vcol)

    End If

    Next

    myarr = Application.WorksheetFunction.Transpose(ws.Columns(icol).SpecialCells(xlCellTypeConstants))

    ws.Columns(icol).Clear

    For i = 2 To UBound(myarr)

    ws.Range(title).AutoFilter field:=vcol, Criteria1:=myarr(i) & ""

    If Not Evaluate("=ISREF('" & myarr(i) & "'!A1)") Then

    Sheets.Add(After:=Worksheets(Worksheets.Count)).Name = "BR" & myarr(i) & ""

    Else

    Sheets(myarr(i) & "").Move After:=Worksheets(Worksheets.Count)

    End If

    ws.Range("A" & titlerow & ":A" & lr).EntireRow.Copy Sheets(myarr(i) & "").Range("A1")

    Sheets(myarr(i) & "").Columns.AutoFit

    Next

    ws.AutoFilterMode = False

    ws.Activate

End Sub