Boa tarde!
Estou com dificuldades em fazer com que a célula receba a seguinte formula usando o VBA
estou tentando fazer com que a célula receba a formula =SE(D2<>"";SE(O2<>"Baixado";HOJE()-D2;P2-D2);"-")
.Offset(rowcount, 1).Value = Application.ActiveCell.FormulaR1C1 = _
"=IF(RC[-13]<>"""",IF(RC[-2]<>""Baixado"",RC[-13]-TODAY(),RC[-13]-RC[-1]),""-"")"
rowcount = Worksheets("impressas").Range("a1").CurrentRegion.Rows.Count
With Worksheets("impressas").Range("a1")
.Offset(rowcount, 0).Value = Me.DtBoxVenc.Value
.Offset(rowcount, 16).Value = Application.ActiveCell.FormulaR1C1 = _
"=IF(RC[-13]<>"""",IF(RC[-2]<>""Baixado"",RC[-13]-TODAY(),RC[-13]-RC[-1]),""-"")"
Sheets("Aut.Coleta").Select
End With