Sub Zero()
    Dim lastRow As Long
    Dim ws As Worksheet
    Set ws = Sheet1
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
         Application.ScreenUpdating = False
         ws.Range("AA16:AA" & lastRow).FormulaR1C1 = "0"
End Sub