o problema está nessas linhas:

Selection.AutoFill Destination:=ActiveCell.Range("A1:A70")
ActiveCell.Range("A1:A70").Select

note que ele só seleciona mesmo o range A1:A70

Tente assim:

Sub teste5()
'
' teste5 Macro
'
Dim Ultimalinha As Long 
Ultimalinha = Range("A" & Rows.Count).End(xlUp).Row

ActiveCell.Offset(0, 18).Columns("A:A").EntireColumn.Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
ActiveCell.Select
ActiveCell.FormulaR1C1 = "=IF(RC[-12]=""c"",-1*RC[-1],RC[-1])"
ActiveCell.Select
Selection.AutoFill Destination:=ActiveCell.Range(Cells(1,1), Cells(Ultimalinha, 1))
ActiveCell.Range(Cells(1,1), Cells(Ultimalinha, 1)).Select
ActiveWindow.SmallScroll Down:=45
End Sub

David, em primeiro lugar, recomendaria que utilizasse o gravador apenas como referência, pois gera códigos bastante 'sujos' e que, numa mínima modificação, pode deixar de atender o pretendido.

Seria melhor se disponibilizasse um modelo, pois é necessário determinar até que linha irá a fórmula. Provavelmente a referência esteja em outra coluna.

De qualquer maneira, seguem sugestões:

Supondo que a fórmula esteja em A1 e que os dados estejam até a linha 85 (coluna B como referência):

f = Range("B65536").End(xlUp).Row 'determina a última linha de dados

Range("A1").Copy 'copia a fórmula

Range("A2:A" & f).Select

ActiveSheet.Paste

Observações: é apenas um exemplo, pois não estou certo quanto às referências em sua planilha; em rpincípio, não vejo necessidade de 'arrastar' a fórmula; veja se, antes de rodar a macro, não é necessário apagar a área com os dados; ref: versão 2003.

Veja se ajuda e qualquer coisa, reporta ou disponibilize um modelo (compactado) com dados fictícios.

Tentei, quase deu mas deu Bug... dá uma olhada no anexo.

Ok Pessoal,

Segue o arquivo com a "macro7" que faz a função que preciso, no entanto limitada à linha da gravação original.

davidcont,

Você esqueceu as duas linhas que o gtsalikis colocou no início.

Dim Ultimalinha As Long 
Ultimalinha = Range("A" & Rows.Count).End(xlUp).Row

Dentre outras como o Edson disse... O gerador de macros gera algumas informações sem necessidade, e muitos select's.

Qualquer coisa da o grito.
Abraço

Funcionou amigos com a resposta do Edson.. muito obrigado a todos.

Caso seja necessário reabrir o tópico, o autor poderá enviar uma MP para um dos moderadores solicitando o desbloqueio.