Loop a macro

[Guest]

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

 

[Guest]

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("A56").Select
Range("P6").Activate
Selection.UnMerge
Range("F5:L5").Select
Range("L5").Activate
Selection.Cut Destination:=Range("J55")
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

 

[Tom Ogilvy]

I doubt many people are going to try to decipher what you are doing.
Explain what steps you want to perform.

Then again, I could be wrong.