Sort by row, then automatically repeat for each following row.

[War Beagle]

I'm sure this is ridiculously simple but I can't figure out how to do it. I have a list of locations in my A column and then each subsequent column has a date I visited that location. Currently, each row is oldest to newest as that is how I have been adding them.

I figured out how to sort by row. What I can't figure out how to do is do a mass sort by row. I want to resort the dates for each city newest to oldest, but doing it manually for each row would take forever.

Is there an automated way to do this, or a macro I could use? Basically something like a "sort painter" would be perfect.

 

[Truiz]

How is your data arranged and how would you like for it to look like.????????

 

[Truiz]

I assume you want to keep Col A out of the sorting so this should do it:

Sub Macro2()
Dim lCol, lRow As Long


lCol = ActiveSheet.Cells.Find(What:="*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious, LookIn:=xlValues).Column
lRow = ActiveSheet.Cells.Find(What:="*", SearchOrder:=xlRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row


  ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    
  For chngR = 2 To lRow
  
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range(Cells(chngR, 2), Cells(chngR, lCol)), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range(Cells(chngR, 2), Cells(chngR, lCol))
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlLeftToRight
        .SortMethod = xlPinYin
        .Apply
    End With
    
   Next
   
End Sub

Change sheet names to match your own