Reproduce formula in sequence

[JamieDuncan]

I am trying to reproduce formulae over a couple thousand rows, unfortunately there are gaps but the formulae must remain sequential,
this is the basic recorded macro to cut copy the data as it is needed but i would like a macro that can start from any active cell (being the top left cell of the first range) as i have to repeat this procedure over several sheets (first sheet took 4 hours!)
Tried using integers but got myself in a kerfuffle!
Help me!

Sub Macro1()
    Range("A13:M29").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("O21").Select
    Application.CutCopyMode = False
    Range("O21:AA37").Cut Destination:=Range("O50:AA66")
    Range("O50:AA66").Select
    Selection.Copy
    Range("A50").Select
    ActiveSheet.Paste
End Sub

 

[JamieDuncan]

Wow, this code is great, got to say thanks again as it is so easy to amend this code to do different tasks,

THREE CHEERS FOR SBENDBUCKEYE

 

[sbendbuckeye]

Thanks for the kind words! Not to quibble, but I think you want this line instead of what you have:

If (lngSourceSheetRow - m_SOURCE_SHEET_FIRST_DATAROW + 1) Mod 8 = 0 Then

The reason I say that is because what you have will break if your source data ever starts on a different line. By using the constant it will continue to work if you change the constant later. I'm glad you got it to work!