Sub jjj_copy_and_H_sort_A()
    Dim rngR As Range
    
    With Range("B1").CurrentRegion
        .Copy .Offset(, 3 + .Columns.Count)
        With .Offset(, 3 + .Columns.Count)
            For Each rngR In .Rows
                With rngR.Parent.Sort
                    .SortFields.Clear
                    .SortFields.Add Key:=rngR, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
                        xlSortNormal
                    .SetRange rngR
                    .Header = xlGuess
                    .MatchCase = False
                    .Orientation = xlLeftToRight
                    .SortMethod = xlPinYin
                    .Apply
                End With ' rngR.Parent.Sort
            Next rngR
        End With
    End With
End Sub