UUUmmm....Yeah. I have no explanation for that. Here at last is the macro:
Sub Format()
'
' Format Macro
' Macro recorded 2/8/2005 by sgauer
'

'
Range("A5:P6").Select
Range("P6").Activate
Selection.UnMerge
Range("F5:L5").Select
Range("L5").Activate
Selection.Cut Destination:=Range("J5:P5")
Range("E6").Select
Selection.Cut Destination:=Range("I5")
Range("I5").Select
Selection.Cut Destination:=Range("H5")
Range("H5").Select
Range("H5").Select
Selection.Cut Destination:=Range("I5")
Range("E5").Select
Selection.Cut Destination:=Range("H5")
Range("D6").Select
Selection.Cut Destination:=Range("G5")
Range("D5").Select
Selection.Cut Destination:=Range("F5")
Range("C6").Select
Selection.Cut Destination:=Range("E5")
Range("C5").Select
Selection.Cut Destination:=Range("D5")
Range("B5").Select
Selection.Cut Destination:=Range("C5")
Range("A6").Select
Selection.Cut Destination:=Range("B5")
Range("A7").Select
End Sub


"Steve" wrote:

I am looking to make this macro run all the way to cell 1000.I would need the
next series to start at A7. Can someone please help?

Thanks,
Steve