Horizontal sort of multiple rows

[kurt n k]

I have a set of data consisting of 18 columns with 125 rows. The first column "A" is a text field, and the next 17 columns "B" through R are values. I Need to sort the 17 columns of data from largest to smallest for each of the 125 rows. I don't think that this can be done easily without a macro. I am no expert at writing code. I was hoping that you could help me. Thank you

 

[alansidman]

Option Explicit

Sub sortH()
    Dim lr As Long, i As Long
    Application.ScreenUpdating = False
    lr = Range("A" & Rows.Count).End(xlUp).Row
    For i = 2 To lr
        Range("B" & i & ":R" & i).Sort key1:=Range("B" & i & ":R" & i), Order1:=xlDescending, Orientation:=xlLeftToRight

    Next i
    Application.ScreenUpdating = True

    MsgBox "Completed"
End Sub

 

[kurt n k]

Option Explicit

Sub sortH()
    Dim lr As Long, i As Long
    Application.ScreenUpdating = False
    lr = Range("A" & Rows.Count).End(xlUp).Row
    For i = 2 To lr
        Range("B" & i & ":R" & i).Sort key1:=Range("B" & i & ":R" & i), Order1:=xlDescending, Orientation:=xlLeftToRight

    Next i
    Application.ScreenUpdating = True

    MsgBox "Completed"
End Sub

Thank you so much! That is perfect! I appreciate your assistance.