Sub main()

Dim ws As Worksheet
Dim wb As Workbook
Dim i As Long
Dim j As Long

Set wb = ActiveWorkbook

For Each ws In wb.Sheets

...

With ws

.Range("AT2").Value = Evaluate("SUMPRODUCT(AQ2:AQ152,AR2:AR152)/SUM(AQ2:AQ152)")
  .Range("AT2").Select
  Selection.AutoFill Destination:=.Range("AT2:AT152")

End With

Next ws

End Sub