Hello all,

Please excuse the above title I was at a loss of what to call this one.

I have the following incomplete code...

Sub testing()
'
' testing Macro
'

'
    ActiveCell.FormulaR1C1 = "=AVERAGE(Sheet2!R[24]C[6]:R[28]C[6])"
    Range("C9").Select
    ActiveCell = "=AVERAGE(Sheet2!I42:I46)"
    Range("C11").Select
    ActiveCell = "=AVERAGE(Sheet2!I53:I57)"
    Range("C13").Select
    ActiveCell = "=AVERAGE(Sheet2!I64:I68)"
    Range("C15").Select
    ActiveCell = "=AVERAGE(Sheet2!I75:79)"
    Range("B9").Select
    ActiveCell = "=Average(Sheet2!S42:S46)"
    Range("B11").Select
    ActiveCell = "=Average(Sheet2!S53:S57)"
    Range("B13").Select
    ActiveCell = "=Average(Sheet2!S64:S68)"
    Range("B15").Select
    ActiveCell = "=Average(Sheet2!S75:S79)"
    
    
End Sub


i could finish it but have many more ranges to go and was wondering if there was a shortcut my guess is yes. As you can see in the above code (fairly banal i know) im pulling averages of data from sheet 2 and putting them into what will be a table on sheet 3. I could go through and do them individually but that would be quite painful. Does somone a little more technically minded know of any tricks to expedite the process ie shorten the code. would be handy if it was applicable to other formulas also
thanks for your help

Dan