Option Explicit

Const X1 = 5
Const X2 = 10

Sub SelectionNicerDicer()
    NicerDicer Selection
End Sub

Sub NicerDicer(rIn As Range)
    Dim arr As Variant
    Dim brr As Variant
    arr = rIn
    If UBound(arr, 2) < X1 Then Exit Sub
    If UBound(arr, 2) < X2 Then Exit Sub
    brr = arr
    
    Dim y As Long
    Dim x As Integer
    For y = 1 To UBound(arr, 1)
        If arr(y, X1) > arr(y, X2) Then
            For x = 1 To X1
                arr(y, X1 + x) = brr(y, x)
                arr(y, x) = brr(y, X1 + x)
            Next
        End If
    Next
    rIn = arr
End Sub