Evaluate("SUM

[PcMax]

Hi,

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

Sub Test_C()
  Dim LastRow As Long
  Dim MediaL2 As Long
  MediaL2 = Range("L2").Value
  LastRow = Range("C" & Rows.Count).End(xlUp).Row
  With Range("O" & MediaL2 + 1 & ":O" & LastRow)
    .Formula = "=SUM(OFFSET(C$1:C$" & MediaL2 & ",ROW(A1),0))/" & MediaL2
    .Value = .Value
  End With
  Cells(1, 15).Resize(MediaL2).ClearContents
End Sub

I only had to add the last line to delete the values ​​of a previous increase when the value of L2.
Thanks for the directions suggested
https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA
https://www.youtube.com/@alanelston2330
https://www.youtube.com/watch?v=yXaYszT11CA&lc=UgxEjo0Di9-9cnl8UnZ4AaABAg.9XYLEH1OwDIA35HNIei0z-
https://eileenslounge.com/viewtopic.php?p=316154#p316154
https://www.youtube.com/watch?v=TW3l7PkSPD4&lc=UgwAL_Jrv7yg7WWC8x14AaABAg
https://teylyn.com/2017/03/21/dollarsigns/#comment-191
https://eileenslounge.com/viewtopic.php?p=317050#p317050
https://eileenslounge.com/viewtopic.php?f=27&t=40953&p=316854#p316854
https://www.eileenslounge.com/viewtopic.php?v=27&t=40953&p=316875#p316875
https://eileenslounge.com/viewtopic.php?p=316057#p316057
https://eileenslounge.com/viewtopic.php?p=316705#p316705
https://eileenslounge.com/viewtopic.php?p=316704#p316704
https://eileenslounge.com/viewtopic.php?p=176255#p176255
https://eileenslounge.com/viewtopic.php?f=27&t=40919&p=316597#p316597
https://eileenslounge.com/viewtopic.php?p=316412#p316412
https://eileenslounge.com/viewtopic.php?p=316254#p316254
https://eileenslounge.com/viewtopic.php?p=316280#p316280
https://eileenslounge.com/viewtopic.php?p=315915#p315915
https://eileenslounge.com/viewtopic.php?p=315512#p315512
https://eileenslounge.com/viewtopic.php?p=315744#p315744
https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA