Olá pessoal,
poderia me ajudar?
Esta macro não está funcionando, onde será que estou errando?
A idéia é colocar a fórmula na coluna 22 somente se na coluna "A" estiver preenchida.

Obrigado

Sub Macro1()
'

    Dim CV As Date

    Range("A2").Select
    
    Do While ActiveCell <> ""
    
    CV = ActiveCell.Offset(0, 22).FormulaR1C1 = _
        "=IF(RC[-13]=0,"""",RIGHT(RC[-13],2)&""/""&LEFT(RIGHT(RC[-13],4),2)&""/""&LEFT(RC[-13],4))"

    ActiveCell.Offset(1, 0).Select
 
    Loop
    
    
End Sub