Right..

Ive been having a play - close but no cigar.

the code I have at the moment is

Sub reformat_data()
'
' reformat_data Macro
'
' Keyboard Shortcut: Ctrl+p
'
odc = 1
maxapps = 2
While Range("A" & odc) <> ""
    odc = odc + 1
    MsgBox "odc value is: " & odc
    Range("A" & odc & ":G" & odc).Select
    Selection.Copy
    Sheets("Sheet2").Select
    Range("C2").Select
    ActiveSheet.Paste
    
    Range("C5:J37").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet4").Select
    Range("A" & maxapps).Select
    Selection.PasteSpecial Paste:=xlPasteValues
    
    maxapps = maxapps + 34
    
Wend

    
End Sub
BUT... it does not select the next row and copy/paste the range into sheet2!c5 correctly :0(
After the 1st attempt, odc appears to be incrementing (as the message box shows this), but it does not select/copy/paste the correct range - it appears as it is trying to copy the same range :0s

Any ideas?