Matching and Sorting with Two Columns

I am trying to 'stagger sort' multiple columns, but am having some difficulties.
Ex.
Say A and B are lists of part no and C is data corresponding to column B. I have:
A B C
1 2 .
2 3 ,
4 4 ;
5 7 '
8 9 "

I want:
A B C
1 _ _
2 2 .
_ 3 ,
4 4 ;
5 _ _
_ 7 '
8 _ _
_ 9 "
(the _ are just supposed to be empty place holders, without them I have formatting issues)

Is there a 'quick' way to sort them this way?
I am attaching the actual file that I am working with.

Not clear.. can you please manually sort few of them in the attached.. or explain lil bit the logic..

Kay,

When you joined the forum recently you agreed to abide by the Forum Rules, but in haste I fear you might not have actually read them. Please stop and take a moment to read them now.

Specifically note rule #2 (do not hijack another thread) and rule #8 (do not crosspost the same question in multiple places). I have closed the hijack/crosspost you posted elsewhere. Please understand we all follow these rules for the benefit of all, as must you. Thanks.

(link above in the menu bar to read the rules)

I apologize for my misconduct, it was unintentional. I have now read the rules and will do my best to abide by them.

The LineEmUp macro on that other thread was custom designed to match rows with like value in ascending order. I've looked at your attachment and it doesn't seem to be that at all.

Your sample workbook only need 10-20 rows of data to be usable. With that, look at the data and make sure your sample workbook has two sheets in it, a BEFORE and AFTER. I'd think we'd be seeing duplicate values in columns A and B that are not aligned in BEFORE, and are now aligned in AFTER.

Assuming:

1) Data starts in row1
2) Columns A:C only are used

Try this on a copy of your data, it uses columns E:H to quickly make a unique match table:

Option Explicit

Sub LineEmUp3()
'Column A matched to partial strings in column B then lined up accordingly
Dim LR As Long

Application.ScreenUpdating = False                                      'speed up macro
LR = Range("A" & Rows.Count).End(xlUp).Row                              'last used row in column A
LR = WorksheetFunction.Max(LR, Range("B" & Rows.Count).End(xlUp).Row)   'last used row in column B, take the max

Range("F1") = "Key"                                                     'title of temp filter column
Range("A1:A" & LR).Copy Range("F2")                                     'copy column A into column F
Range("B1:B" & LR).Copy Range("F" & Rows.Count).End(xlUp).Offset(1)     'add column B to column F
                                                                        'remove the word " Count" from column F
Columns("F:F").Replace What:=" Count", Replacement:="", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False
                                                                        'take unique values from F and put in column E
Range("F:F").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("E1"), Unique:=True
Columns("F:F").ClearContents                                            'clear column F
LR = Range("E" & Rows.Count).End(xlUp).Row                              'last used row in column E
                                                                        'formula to match A to the new column E
Range("F2:F" & LR).FormulaR1C1 = "=IF(ISNUMBER(MATCH(RC5,C[-5], 0)), RC5, """")"
                                                                        'formula to match B to the new column E
Range("G2:G" & LR).FormulaR1C1 = "=IF(ISNUMBER(MATCH(RC5&""*"",C[-5], 0)), RC5 & "" Count"", """")"
                                                                        'Vlookup to bring over quantities from column C
Range("H2:H" & LR).FormulaR1C1 = "=IF(RC[-1]="""", """", VLOOKUP(RC[-1], C2:C3, 2, 0))"
    
Range("F2:H" & LR).Copy                                                 'paste the new table from F:H back over A:C
Range("A1").PasteSpecial xlPasteValues
Range("E:H").ClearContents                                              'clear F:H
Application.ScreenUpdating = True                                       'back to normal speed

End Sub

Did that work for you?