Sub moveselection()
Selection.Cut
Cells(ActiveCell.Row - 4, 1).Insert
End Sub

--
Don Guillett
SalesAid Software

"None" wrote in message
...
Rather than cut and paste rows, if there a way to select a range of
cells and just move them up or down a set number of rows? (I say a
range of cells, because on some sheets each record may contain more
than one row of data) The Pseudo code below gives an idea of the
context of what I am doing. The * line is the one in question. IF cut
and paste is the best way, could you post the cut and paste method?

Compare code
IF need to move up THEN
SELECT Rows for this Record.
*MOVE SELECTED Range up or down # of rows. *
END IF