Boa tarde,

Veja se é isso que voce precisa.

Ainda não é isso amigo, vou melhorar o meu exemplo.

Segue anexo com explicação.

Sub teste()
    
    
    
    Dim lin As Long
    Dim lin2 As Long
    
    
    
    For lin = 2 To Plan1.UsedRange.Rows.Count
        
        If Plan1.Range("B" & lin).Value = "" Then
            If Plan1.Range("E" & lin).Value <> "" Then
                Plan1.Range("B" & lin).Value = Plan1.Range("B" & lin - 1).Value
                
            End If
            
        End If
        
        
    Next lin
    
    
End Sub

Entendi

Era ainda mais fácil então.
Segue anexo a resolução!

Amigo, agradeço a resposta mas não era isso ainda.

Mesmo assim, foi muito útil seu código pois já reutilizei.

klarc28

Quase la amigo, mas ao invés dele colar valor, queria que ele trouxe-se a fórmula que estiver na B2.
Pois ali esta preenchido com fórmula e o código só trouxe o valor, é possível?

Veja se é isso.

Sub executa()
Dim wsheet As Worksheet
Dim countlin As Long

Set wsheet = Sheets("Plan1")

wsheet.Select
countlin = wsheet.Range("e1048576").End(xlUp).Row

wsheet.Range("B2").Copy
wsheet.Range("b3:b" & countlin).PasteSpecial xlPasteFormulas

Application.CutCopyMode = False

MsgBox "Dados copiados!"

End Sub

Isso mesmo amigo, muitooooooooo obrigado!