Solved: Reversing the order of rows???

[twelvety]

Hi experts,
I have found out through this forum that I can reverse the order of columns using this code;

[vba]

Sub reverse()
Dim counti As Integer
Dim countj As Integer

Application.ScreenUpdating = False
counti = Cells(Selection.Row, Columns.Count).End(xlToLeft).Column
For countj = counti - 1 To 1 Step -1
Columns(countj).Cut
Columns(counti + 1).Insert
Next countj
Application.ScreenUpdating = True
End Sub

[/vba]

Is anyone able to provide me with some code to reverse the order of rows?

Thanks in advance

[Bob Phillips]

[vba]

Sub reverse()
Dim counti As Integer
Dim countj As Integer
Application.ScreenUpdating = False
counti = Cells(Rows.Count, Selection.Column).End(xlUp).Row
For countj = counti - 1 To 1 Step -1
Rows(countj).Cut
Rows(counti + 1).Insert
Next countj
Application.ScreenUpdating = True
End Sub
[/vba]