Can this VBA be simplified

hi there, the code inbetween the following two lines:

Application.EnableEvents = False
......
Application.EnableEvents = True

can be replaced with the following:

ReDim arr(1 To 1, 1 To 34)

rcounter = 1

For i = Sheets("Sheet2").Index To Sheets.Count
    ccounter = 6
    For n = 1 To 34 Step 5
        rcounter = rcounter + 1
        ccounter = ccounter - 5
        arr(1, n) = "=DATE!R[" & rcounter & "]C[" & ccounter & "]"
    Next
    Sheets(i).Range("c1:aj1") = arr
Next