Sorting alphabetically in column "n" and keeping the rows intact

[skylarjung]

I am trying to use VBA to sort Column 1 Alphabetically while also keeping the rows intact in column b (meaning if a row in column 1 moves its corresponding row in column b will move with it).
I am trying to avoid using the sort function in excel because I want this to be integrated later into an already existing code.
Ive tried to look around for already existing sort code so if you have any recommended resources please send them my way.

 

[Fluff]

How many columns do you have?
Also do you have a header row & if so, what row is it?

 

[skylarjung]

How many columns do you have?
Also do you have a header row & if so, what row is it?

The amount of columns will be changing as more information gets added, so if possible the whole column A and the header row it row 1.

 

[Fluff]

Ok, how about

Sub skylarjung()
   Dim UsdCols As Long
   
   UsdCols = Cells(1, Columns.Count).End(xlToLeft).Column
   With Range("A1", Range("A" & Rows.Count).End(xlUp)).Resize(UsdCols)
      .Sort Range("A1"), xlAscending, , , , , , xlYes
   End With
End Sub

 

[skylarjung]

Ok, how about

Sub skylarjung()
   Dim UsdCols As Long
  
   UsdCols = Cells(1, Columns.Count).End(xlToLeft).Column
   With Range("A1", Range("A" & Rows.Count).End(xlUp)).Resize(UsdCols)
      .Sort Range("A1"), xlAscending, , , , , , xlYes
   End With
End Sub

how would I go about specifying the sheet if there were many sheets in the workbook?

 

[Fluff]

That will work on the active sheet. Do you want it to work on one sheet only?

 

[skylarjung]

That will work on the active sheet. Do you want it to work on one sheet only?

The code worked well! Thank you! I was just unsure if it needed to have a sheet specified. I dont want it to sort on other sheets. Looking at it it seems like this only occurred on the sheet that was open.

 

[Fluff]

What is the name of the sheet you want to sort?

 

[skylarjung]

The sheet name is "Sheet1" I have multiple sheets and it is not updating the most active sheet. It did it for one but not others

What is the name of the sheet you want to sort?

 

[Fluff]

Ok, how about

Sub skylarjung()
   Dim UsdCols As Long
   
   With Sheets("Sheet1")
      UsdCols = .Cells(1, Columns.Count).End(xlToLeft).Column
      With .Range("A1", Range("A" & Rows.Count).End(xlUp)).Resize(UsdCols)
         .Sort .Range("A1"), xlAscending, , , , , , xlYes
      End With
   End With
End Sub