Macro: calculate and paste repeatedly

**Savan87** · 11-18-2011, 09:28 AM

Hello,

I would like to create a macro which inputs the value of 100 into cell A2, then copies the calculated contents of cells A7:A17 to a new worksheet (column B). I then want the macro to repeat, increasing the value of A2 by 10 and copying the new values of cells A7:A17 into a new column on the worksheet (column C).... and so on until the value of A2 = 750

I have attached a sample workbook outling the format

Thanks alot

**royUK** · 11-18-2011, 09:39 AM

Why would you want a macro to do this. Formulas would be simpler

**nilem** · 11-18-2011, 09:44 AM

Macro:

Sub ertert()
Dim k&, cl&

cl = 2
With Sheets("Ouput")
    For k = 100 To 750 Step 10
        [a2].Value = k
        .Cells(1, cl).Value = k
        .Cells(2, cl).Resize(11).Value = [a7:a17].Value
        cl = cl + 1
    Next
    .Activate
End With

End Sub