Mude a linha em vermelho...

rowcount = Worksheets("impressas").Range("a1").CurrentRegion.Rows.Count
With Worksheets("impressas").Range("a1")
.Offset(rowcount, 0).Value = Me.trfa.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

Para:

rowcount = Worksheets("impressas").Range("a1").CurrentRegion.Rows.Count
With Worksheets("impressas").Range("a1")
.Offset(rowcount, 0).Value = Me.trfa.Value
.Offset(rowcount, 16).FormulaR1C1 = "=IF(RC[-13]<>"""",IF(RC[-2]<>""Baixado"",RC[-13]-TODAY(),RC[-13]-RC[-1]),""-"")"
Sheets("Aut.Coleta").Select
End With

Mude a linha em vermelho...
rowcount = Worksheets("impressas").Range("a1").CurrentRegion.Rows.Count
With Worksheets("impressas").Range("a1")
.Offset(rowcount, 0).Value = Me.trfa.Value
.Offset(rowcount, 16).FormulaR1C1 = "=IF(RC[-13]<>"""",IF(RC[-2]<>""Baixado"",RC[-13]-TODAY(),RC[-13]-RC[-1]),""-"")"
Sheets("Aut.Coleta").Select
End With

Ainda Continua recebendo o valor ="FALSO" ao invés da formula "se"

Compacte e poste seu modelo.

Não faz sentido ter dado errado novamente, pois o que vc usa:
.Offset(rowcount, 16).Value = Application.ActiveCell.FormulaR1C1 = "=IF(RC[-13]<>"""",IF(RC[-2]<>""Baixado"",RC[-13]-TODAY(),RC[-13]-RC[-1]),""-"")"

é uma comparação, e por isso está resultando em falso. pq a formular1c1 atual da célula é diferente do texto que vc quer inserir como fórmula.

Quando eu mandei a nova linha, isso não é mais uma comparação e a fórmula deveria aparecer escrita perfeitamente na célula. Então imagino que vc fez algo errado ao aplicar a solução proposta.
.Offset(rowcount, 16).FormulaR1C1 = "=IF(RC[-13]<>"""",IF(RC[-2]<>""Baixado"",RC[-13]-TODAY(),RC[-13]-RC[-1]),""-"")"

FF

Compacte e poste seu modelo.

Não faz sentido ter dado errado novamente, pois o que vc usa:
.Offset(rowcount, 16).Value = Application.ActiveCell.FormulaR1C1 = "=IF(RC[-13]<>"""",IF(RC[-2]<>""Baixado"",RC[-13]-TODAY(),RC[-13]-RC[-1]),""-"")"

é uma comparação, e por isso está resultando em falso. pq a formular1c1 atual da célula é diferente do texto que vc quer inserir como fórmula.

Quando eu mandei a nova linha, isso não é mais uma comparação e a fórmula deveria aparecer escrita perfeitamente na célula. Então imagino que vc fez algo errado ao aplicar a solução proposta.
.Offset(rowcount, 16).FormulaR1C1 = "=IF(RC[-13]<>"""",IF(RC[-2]<>""Baixado"",RC[-13]-TODAY(),RC[-13]-RC[-1]),""-"")"

FF

A Planilha esta em anexo.... executa ela ai pfrv.

Compacte e poste seu modelo.

Não faz sentido ter dado errado novamente, pois o que vc usa:
.Offset(rowcount, 16).Value = Application.ActiveCell.FormulaR1C1 = "=IF(RC[-13]<>"""",IF(RC[-2]<>""Baixado"",RC[-13]-TODAY(),RC[-13]-RC[-1]),""-"")"

é uma comparação, e por isso está resultando em falso. pq a formular1c1 atual da célula é diferente do texto que vc quer inserir como fórmula.

Quando eu mandei a nova linha, isso não é mais uma comparação e a fórmula deveria aparecer escrita perfeitamente na célula. Então imagino que vc fez algo errado ao aplicar a solução proposta.
.Offset(rowcount, 16).FormulaR1C1 = "=IF(RC[-13]<>"""",IF(RC[-2]<>""Baixado"",RC[-13]-TODAY(),RC[-13]-RC[-1]),""-"")"

FF

A frm esta em anexo.... executa ela ai pfrv.

Resolvido? Deu certo então?