Hi,

Did you mean like this:

Code:
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)