میانگین گیری در اکسل

Sub mn()
Dim avg As Single

For i = 1 To 1
  For j = 2 To 1395 Step 7
    Rw = Range(Cells(i, j), Cells(i, j + 6))
Cells(2, j) = WorksheetFunction.Average(Rw)
  Next j
Next i
End Sub