Suggestions

%3CLINGO-SUB%20id%3D%22lingo-sub-1996267%22%20slang%3D%22en-US%22%3ESuggestions%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-1996267%22%20slang%3D%22en-US%22%3E%3CP%3ENeed%20data%20in%20same%20row.%20Please%20find%20attached.%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-LABS%20id%3D%22lingo-labs-1996267%22%20slang%3D%22en-US%22%3E%3CLINGO-LABEL%3EExcel%3C%2FLINGO-LABEL%3E%3C%2FLINGO-LABS%3E%3CLINGO-SUB%20id%3D%22lingo-sub-1997345%22%20slang%3D%22en-US%22%3ERe%3A%20Suggestions%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-1997345%22%20slang%3D%22en-US%22%3E%3CP%3E%3CA%20href%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fuser%2Fviewprofilepage%2Fuser-id%2F780709%22%20target%3D%22_blank%22%3E%40Jagdeep_%3C%2FA%3E%26nbsp%3B%3C%2FP%3E%0A%3CP%3ETry%20this%20macro.%20Please%20test%20on%20a%20copy%20of%20your%20worksheet.%3C%2FP%3E%0A%3CPRE%20class%3D%22lia-code-sample%20language-visual%22%3E%3CCODE%3ESub%20Sync()%0A%20%20%20%20Dim%20r%20As%20Long%0A%20%20%20%20Dim%20c%20As%20Long%0A%20%20%20%20Dim%20m%20As%20Long%0A%20%20%20%20Application.ScreenUpdating%20%3D%20False%0A%20%20%20%20r%20%3D%203%0A%20%20%20%20Do%0A%20%20%20%20%20%20%20%20m%20%3D%2010000%0A%20%20%20%20%20%20%20%20For%20c%20%3D%201%20To%205%0A%20%20%20%20%20%20%20%20%20%20%20%20If%20Cells(r%2C%20c).Value%20%26lt%3B%26gt%3B%20%22%22%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20m%20%3D%20Application.Min(Val(Mid(Cells(r%2C%20c).Value%2C%206))%2C%20m)%0A%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20Next%20c%0A%20%20%20%20%20%20%20%20For%20c%20%3D%201%20To%205%0A%20%20%20%20%20%20%20%20%20%20%20%20If%20Cells(r%2C%20c).Value%20%26lt%3B%26gt%3B%20%22%22%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20Val(Mid(Cells(r%2C%20c).Value%2C%206))%20%26gt%3B%20m%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Cells(r%2C%20c).Insert%20Shift%3A%3DxlShiftDown%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20Next%20c%0A%20%20%20%20%20%20%20%20r%20%3D%20r%20%2B%201%0A%20%20%20%20%20%20%20%20If%20r%20%3D%2015%20Then%20Stop%0A%20%20%20%20Loop%20Until%20Application.CountA(Cells(r%2C%201).Resize(1%2C%205))%20%3D%200%0A%20%20%20%20Application.ScreenUpdating%20%3D%20True%0AEnd%20Sub%3C%2FCODE%3E%3C%2FPRE%3E%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-1997573%22%20slang%3D%22en-US%22%3ERe%3A%20Suggestions%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-1997573%22%20slang%3D%22en-US%22%3E%3CP%3E%3CA%20href%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fuser%2Fviewprofilepage%2Fuser-id%2F780709%22%20target%3D%22_blank%22%3E%40Jagdeep_%3C%2FA%3E%26nbsp%3BAs%20a%20variant%2C%20similar%20result%20with%20Power%20Query.%20File%20attached.%3C%2FP%3E%3CP%3E%3CSPAN%20class%3D%22lia-inline-image-display-wrapper%20lia-image-align-inline%22%20image-alt%3D%22Screenshot%202020-12-17%20at%2015.08.09.png%22%20style%3D%22width%3A%20383px%3B%22%3E%3CIMG%20src%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fimage%2Fserverpage%2Fimage-id%2F241349iD7C5B58C336C0C74%2Fimage-size%2Flarge%3Fv%3D1.0%26amp%3Bpx%3D999%22%20role%3D%22button%22%20title%3D%22Screenshot%202020-12-17%20at%2015.08.09.png%22%20alt%3D%22Screenshot%202020-12-17%20at%2015.08.09.png%22%20%2F%3E%3C%2FSPAN%3E%3C%2FP%3E%3C%2FLINGO-BODY%3E
Occasional Contributor

Need data in same row. Please find attached.

3 Replies

@Jagdeep_ 

Try this macro. Please test on a copy of your worksheet.

Sub Sync()
    Dim r As Long
    Dim c As Long
    Dim m As Long
    Application.ScreenUpdating = False
    r = 3
    Do
        m = 10000
        For c = 1 To 5
            If Cells(r, c).Value <> "" Then
                m = Application.Min(Val(Mid(Cells(r, c).Value, 6)), m)
            End If
        Next c
        For c = 1 To 5
            If Cells(r, c).Value <> "" Then
                If Val(Mid(Cells(r, c).Value, 6)) > m Then
                    Cells(r, c).Insert Shift:=xlShiftDown
                End If
            End If
        Next c
        r = r + 1
        If r = 15 Then Stop
    Loop Until Application.CountA(Cells(r, 1).Resize(1, 5)) = 0
    Application.ScreenUpdating = True
End Sub

@Jagdeep_ As a variant, similar result with Power Query. File attached.

Screenshot 2020-12-17 at 15.08.09.png

@Jagdeep_ 

With formulas as variant that could be

image.png

From you sample is not clear shall we keep empty rows (as between MANA-0019 and MANA-0028) or shall ignore them like between MANA-0006 and MANA-0012. Assuming we keep empty and your actual data has exactly the same structure, i.e. 4-digit of sequential numbers for each value, formula in first column could be

=XLOOKUP(
    SEQUENCE(MAX(--RIGHT(Table1,4)),,MIN(--RIGHT(Table1,4))),
    --RIGHT(XLOOKUP(N$2,Table1[#Headers],Table1),4),
    XLOOKUP(N$2,Table1[#Headers],Table1),"")

and drag it to the right.