Need excel to sort first 7 values only)

[Eric Penfold]

Trying to use a loop to sort first 7 values only in A2 to last row with Range A2:H to last row?

Sub Number_Sort()

    Dim ws     As Worksheet
    Dim Lr     As Long
    Dim Rng    As Range
    Dim v      As Range

    With Application
        .ScreenUpdating = False
        .EnableEvents = False
        .DisplayAlerts = False
        .Calculation = xlCalculationManual
    End With
    
    
    
    Set ws = ThisWorkbook.Worksheets("Frost Drains")
    Lr = ws.Cells(Rows.Count, 1).End(xlUp).Row - 1
    Set Rng = ws.Range("A2:H" & Lr)
    
    With ws
        For Each v In .Range("A2:A" & Lr)
            v.Offset(0, 1).Value = Val(Mid(v, Evaluate("=MIN(FIND({0,1,2,3,4,5,6,7}," & v.Address & "&""01234567""))")))
            .Range("A:H").Sort Key1:=.Range("A1"), Order1:=xlAscending, Header:=xlYes
            Rng.RemoveDuplicates Columns:=Array(1), Header:=xlYes
        Next v
    End With
i
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
        .DisplayAlerts = True
        .Calculation = xlCalculationAutomatic
    End With
    
End Sub

 

[Eric Penfold]

Will this change a range of cells rather than just A column?

 

[Akuini]

Will this change a range of cells rather than just A column?

Ah, sorry the sort part should include col A:H:

Sub try2()
Dim c As Range
Set ws = ActiveSheet
    Lr = ws.Cells(Rows.Count, 1).End(xlUp).Row - 1
    Set Rng = ws.Range("A1:A" & Lr)

    For Each c In Rng
        If IsNumeric(c) Then
            c.Value = "'" & c.Formula
        End If
    Next
    
    With ws.Range("A:H")
        .Sort Key1:=.Columns(1), Order1:=xlAscending, Header:=xlYes
    End With
End Sub

 

[Eric Penfold]

Does not seem to alter the range still?

 

[Akuini]

Do you mean the numbers didn't become text?

 

[Eric Penfold]

Just the rang does not change only column A changes?

 

[Akuini]

I don't understand your answer, my question was:
Did the numbers in col A change to text?

 

[Eric Penfold]

Column A values changed position like they should (That`s perfect) but the rest of the range did not change. Do we need the entire row command in the code?

 

[Akuini]

but the rest of the range did not change.

Did you use the revised code in post #12?
It worked on my side.

 

[Eric Penfold]

I did sorry can`t work it out.

 

[Akuini]

I did sorry can`t work it out.

Not sure why.
Could you upload a sample workbook (without sensitive data) to a sharing site like dropbox.com or google drive?
And then share the link here.