Boa tarde Denise

Movi teu tópico para o sub fórum VBA & Macros, pois este local é exclusivo para a apresentação dos novos usuários do fórum.

Por enquanto vou deixar mostrando nos 2 fóruns, para você se localizar.

At.te

Patropi - Moderação

Sem ver a planilha, seria algo assim:

Sub Não_testada_GT()
Application.ScreenUpdating = False
Dim i   As Integer
Dim UL  As Integer ' Última Linha
UL = Range("E" & Rows.Count).End(xlUp).Row
For i = 2 To UL
    If Not IsEmpty(Cells(i, "E")) And IsEmpty(Cells(i, "F")) Then Cells(i, "F").Value = Cells(i - 1, "F").Value
Next i
Application.ScreenUpdating = True
End Sub

Mas ele precisa executar a instrução que enviei , e não identifiquei onde entra minha isntrução no codigo que vc passou, pelo q entendi ele apenas está localziado as linhas não vazias em E e copiando para as linhas vazias em F

Boa tarde!!

Eu ainda não entendi, se poder montar um modelo compactado com antes e o depois.

Att

denis, o ideal é´postar um modelo, pois está bem confuso sua explicação:

pq se uso o laço for each next ou o for each in selection ele calculou todos os resultados na mesma cell acredito que por causa do activecell.select na formula.

Os resultados são jogados na mesma celula porque em sua rotina eles estão explicitos :
Range("m1").Value = ActiveCell.Offset(0, -5).Value
Range("n1").Value = ActiveCell.Offset(0, -4).Value
Range("o1").Value = ActiveCell.Offset(0, -3).Value
Range("p1").Value = ActiveCell.Offset(0, -1).Value

Então mesmo que se faça um Loop os resultados serão sempre jogados nosRanges já definidos.

[]s