Dúvida FormulaArray loop for R1C1

[Dayana Bayma]

Eu fostaria de usar a seguinte acionar a seguiente função PICompDat(tag,Data início,Dat Fim,8,"""",""inside"")" através de uma macro. Utilizei o gravador de macro e obtive

o seguinte código:

 

Sub PI_COMPDAT()

 

   

    Sheets("PI").Select   

    Range("B2:B366").Select

    Selection.FormulaArray = _

        "=PICompDat(PI!R1C2,PI!R2C1,PI!R366C1,8,"""",""inside"")"

       

End Sub

Mas eu gostaria que o cálculo fosse feito para as outras colunas, além da coluna B. E tentei isso:

 

 

Sub PI_COMPDAT()

'

    Dim colunafim As Integer

    Dim i As Integer

    Sheets("PI").Select

    colunafim = Range("A1").End(xlToRight).Column

    For i = 2 To colunafim

    Range(Cells(2, i), Cells(366, i)).Select

'Erro está aqui

    Selection.FormulaArray = _

        "=PICompDat(PI!Cells(1,i),PI!Cells(2,1),PI!Cells(366,1),8,"""",""inside"")"

    Next i