Macro Help Needed...

[acemecca]

Greetings:

I have a spreadsheet where I need to apply a formula into the A column, every fourth line. For example, on the attached spreadsheet, the data bank is on tab 'master data' and the form I am creating is on the second tab 'map report final'. I need to copy rows 9 thru 11 and paste this on A12, A15, A18, etc...throughout the entire sheet. Please locate my spreadsheet at http://www.filefactory.com/file/cede6b1/n/Copy_of_AP_Load_File_-_VAL_REPORT_v2.xlsx


I need a macro to copy rows 9-11, select every fourth row in the sheet, then pasting into those cells.

Please advise....and thanks again!

-Cole

 

[doofusboy]

Something like this should work:

Dim i As Integer
    Range("A9:A11").Copy
    For i = 12 To 300 Step 3
        Application.EnableEvents = False
        Range("A" & i).PasteSpecial
        Application.EnableEvents = True
    Next