Visual Basic VBA Com 'Range.Formula' para várias Celulas

[Pablo Terra]

Prezados, preciso de ajuda.

 

Estou realizando uma função em VBA que realiza a contagem de datas entre uma data até hoje, através da atribuição da fórmula a uma celula por VBA, consigo realizar isso para uma única range, conforme abaixo, mas e para mais de uma range, por exemplo, possuo mais de 1000 linhas, é desumano, fazer o código linha por linha. 

 

    Range("H8").Select
    ActiveCell.Formula = "=NOW()-E8"

 

Peço auxílio.

[Basole]

Tente desta forma:

 

Dim UltimaLinha As Long

UltimaLinha = Range("H" & Rows.Count).End(xlUp).Row

Range("H8:H" & UltimaLinha).Formula = "=NOW()-E8"

 

[Pablo Terra]

@Basole Cara, sensacional, me deu o que eu precisava.

 

Me ajuda só em uma última dúvida?

 

Na planilha escrevemos =DIATRABALHOTOTAL.INTL(dtini;dtfin;1); mas em vba como ficaria?

 

Estou usando o ActiveCell.Formula = "=NETWORKDAYS.INTL(LC[-3],NOW(),1) mas não vai

adicionado 49 minutos depois

@Basole já descobri o erro, o correto é ...(RC[-3]...) eu havia colocado LC