VB code for Moving Rows up and down

**AndyR** · 08-09-2005, 11:34 PM

Hi, I have tried a search but could not find what I am looking for.

I have a spreadsheet and would like to be able to move rows up and down at the press of a button, so if I wanted to move row 20 to row 19, highlighting a cell in row 20 and then a click of a button would swap the two rows, I could then carry on and move the row all the way to the top if need be.

Is this too much to ask?

Any suggestions would be much appreciated.

Regards

Andy

**AndyR** · 08-10-2005, 12:11 AM

Maybe a bit hasty psoting the message above, after sitting down and trying it out this simple code seems to work, can anyone see any tidying up or glaring ommissions that I have made?

Cheers

Andy

Sub MoveDown()

Selection.EntireRow.Select
Selection.Cut
ActiveCell.Offset(2, 0).Range("A1").Select
Selection.EntireRow.Select
Selection.Insert Shift:=xlDown
ActiveCell.Offset(-1, 0).Range("A1").Select

End Sub

Sub MoveUp()

Selection.EntireRow.Select
Selection.Cut
ActiveCell.Offset(-1, 0).Range("A1").Select
Selection.EntireRow.Select
Selection.Insert Shift:=xlDown

End Sub

anthony rose · 02-21-2006, 07:20 AM

Hi, I'm not trained in VB so may be missing something but this seems tider
because it doesn't change the user's selection and has less lines. Also it
checks for top row.

Sub MoveDown()

Range(ActiveCell.Row + 1 & ":" & ActiveCell.Row + 1).Cut 'Cut row below
ActiveCell.EntireRow.Insert Shift:=xlDown 'Paste
ActiveCell.Offset(1, 0).Select 'Move down to it

End Sub

Sub MoveUp()

If ActiveCell.Row > 1 Then
Range(ActiveCell.Row & ":" & ActiveCell.Row).Cut 'Cut active row
ActiveCell.Offset(-1, 0).Select 'Move up a row
ActiveCell.EntireRow.Insert Shift:=xlDown 'Paste
End If

End Sub

**YossiD** · 06-07-2017, 05:28 AM

I was looking for this too, plus I wanted to assign the macros to the same keystrokes that Word uses for the equivalent functionality.

Here's what I ended up with.

Please Login or Register  to view this content.

The comment lines show where I found the information.

Does the forum have a library of macros where I could put this for the convenient use of others?