Macro - Alterar uma seleção de dados dentro de uma formula

[_Bucker_]

Tenho a seguinte formula na celula G92

 

=(CONT.SE(BO123:BO172;1)/((CONT.NÚM(BO123:BO172)-CONT.SE(BO123:BO172;0))))

 

Os dados para análise estão todos em BO123:BO172

 

Gostaria de ao executar a macro, que os dados da formula na celula G92 fossem BO124;BO173 e na proxima execução BO125;BO174 e assim sucessivamente.

 

Eu parei nessa parte, quase do zero.

 

Sub ok()
'
' ok Macro
'
' Atalho do teclado: Ctrl+Shift+M
'
    ActiveCell.FormulaR1C1 = _
        "=(COUNTIF(R[30]C[60]:R[79]C[60],1)/((COUNT(R[30]C[60]:R[79]C[60])-COUNTIF(R[30]C[60]:R[79]C[60],0))))"
    Range("G92").Select
   
End Sub
 

 

Obrigado.

[Visitante]

Experimente:

Sub InsereFórmula() Dim m As Long, k As Long  m = InStr([G92].Formula, ":")  k = Mid([G92].Formula, 13, m - 13) + 1 [G92] = "=(COUNTIF(BO" & k & ":BO" & k + 49 & ",1)/((COUNT(BO" & k & ":BO" & k + 49 & ")-COUNTIF(BO" & k & ":BO" & k + 49 & ",0))))"End Sub

 

obs. coloque a fórmula inicial em 'G92' e depois rode a macro