Kodu böyle kullanın abey.Arr içinede aralık yazmaya gerek yok aslında 1 to 1  yeterli.

Sub MakroCalistir_2()

    Dim say As Integer, i As Long

    

    ReDim arr(1 To 1)

    

    With Sayfa1

        For i = 22 To 54

            say = say + 1

            ReDim Preserve arr(1 To say)

            If .Range("M" & i).Interior.ColorIndex = 7 Then

                arr(say).addr = .Cells(i, "M").Address

                arr(say).val = .Cells(i, "M").Formula

                If frm_bioclimatic.CheckBox2.Value = True Then .Cells(i, "M").Value = 0

            End If

        Next

    End With

End Sub