macro to arrange rows in numerical order using numbers in column

**blairw** · 03-19-2013, 07:41 PM

hi all
back with a small issue
does anyone know of a macro to automatically arrange the entire rows in my work sheet in order eg 1,2,3,4,5,6,7 etc
using numbers entered in cells in column b
many thanks
blair

ps i have an existing macro in thisworkbook hopefully the above macro wont interfear with

**alansidman** · 03-19-2013, 07:57 PM

The quickest way to do this, is to set the macro recorder to record. Go through the steps to sort on column B. Then look at the macro and clean it up as necessary. If after recording, you have any difficulties, post back with the code you have and the issues you are experiencing.

**blairw** · 03-19-2013, 08:12 PM

hi there
the code i have is below
how do i make it automatic ?
thanks
blair

Sub Macro2()
'
' Macro2 Macro
'

'
Rows("54:65").Select
Range("A65").Activate
ActiveWorkbook.Worksheets("Complete").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Complete").Sort.SortFields.Add Key:=Range( _
"B55:B65"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortTextAsNumbers
With ActiveWorkbook.Worksheets("Complete").Sort
.SetRange Range("A54:AQ65")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub