Sorting with VBA

Hello,
I feel that the line number in [A:A] is completely unnecessary since it has no relation to the rest of the line.
It should be removed, or what is it for....?
The sorting order is summarized by this line:
Columns("A:X").Sort Key1:=Columns("B"), Order1:=xlAscending, Key2:=Columns("C"), Order2:=xlAscending, Header:=xlGuess
The [Columns("A:X").] refers to the columns of the table, to be adjusted as needed.

--
Regards.
The Penguin

Hello,

here is the vba code:

sub sort
i=1
' defines the number of rows in your table using variable i
do while cells(I,1) <> ""
i=i+1
loop

Range(cells(1,2),cells(i,10)).Select 'selects the range from cell B1 to Ji
==> J is represented by 10 (if you want to stop before another column, replace 10 with the column number) and i represents the last row of your table

'For the continuation replace Sheet1 with your sheet name
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range(cells(2,2),cells(i,2)), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range(cells(2,4),cells(i,4)), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").Sort
.SetRange Range(cells(2,2),cells(i,10))
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
end sub