Evaluate("SUM

[PcMax]

Hi,

Did you mean like this:

Sub snb()
  Sn = Sheets(1).Columns(3).SpecialCells(2)
  Sn1 = Sn
  For j = 11 To UBound(Sn)
    Sn1(j, 1) = (Sn(j, 1) + Sn(j - 1, 1) + Sn(j - 2, 1) + Sn(j - 3, 1) + Sn(j - 4, 1) + Sn(j - 5, 1) + Sn(j - 6, 1) + Sn(j - 7, 1) + Sn(j - 8, 1) + Sn(j - 9, 1)) / 10
  Next
  Cells(1, 15).Resize(UBound(Sn)) = Sn1
  Cells(2, 15).Resize(9).ClearContents
End Sub

Keep in mind that the value 10 in range L2 I can edit ( 1, 2,,,10, 11, 12,,, ecc)

[Rick Rothstein]

This code seems to produce the same answer as the code you posted...

Sub Test_B()
  Dim LastRow As Long
  LastRow = Range("C" & Rows.Count).End(xlUp).Row
  With Range("O" & Range("L2").Value + 1 & ":O" & LastRow)
    .Formula = "=SUM(OFFSET(C$1:C$" & Range("L2").Value & ",ROW(A1),0))/L$2"
    .Value = .Value
  End With
End Sub