Excel VisualBasic Script

Option Explicit
Public Sub MoveAverage()
  Dim aRange As Range
  Dim i As Long
  
  Set aRange = Range("B1:B3")
  For i = 3 To 12
    Cells(i, "C").Value = WorksheetFunction.Round(WorksheetFunction.Sum(aRange) / 3, 0)
    Set aRange = aRange.Offset(1, 0)
  Next i
End Sub