Jim

This is spot-on, worked first time.

Many thanks, you saved me and my colleagues hours of work, it's very
much appreciated.

Steve


On Fri, 15 Jul 2005 10:28:04 -0700, "Jim Thomlinson"
wrote:

Give this a try...

Sub MoveIt()
Dim rngToSearch As Range
Dim rngCurrent As Range
Dim varTargetNumber As Variant

varTargetNumber = ""
Set rngToSearch = Range("B1", Range("B65536").End(xlUp).Offset(-1, 0))


If MsgBox("Don't forget to put a '* Total' at the foot of the column", _
vbOKCancel, "Reminder..") = vbCancel Then Exit Sub
For Each rngCurrent In rngToSearch
If IsNumeric(rngCurrent) Then
varTargetNumber = rngCurrent.Value
rngCurrent.Value = ""
End If
rngCurrent.Offset(0, -1).Value = varTargetNumber
Next rngCurrent
End Sub