Como vc nao disponibilizou seu arquivo nem seu codigo, seria o ideal ter feito os dois

Coloque dentro do loop a linha de intrução que copia o nome

Se nao conseguir resolver disponibilize seu arquivo.

Boa tarde!

Não posso compartilhar a planilha porque ela tem dados confidenciais... E não tenho nenhum código pra isso ainda, todos que tentei deram errado.. rs

arthurbrs
vai ser difícil hem rapaz
como envolve documentos importantes e sigilosos o certo seria contratar alguém de confiança e capacitado para isso

lembrando que aqui é um forum com profissionais ou apenas iniciantes que disponibilizam seu tempo vago para ajudar a outros não sendo esse um trabalho remunerado, portanto sem garantia de respostas e se tiver não vai ser garantida a performance ou de ser a prova de falhas

vc pode cria um exemplo para postar respeitando posição e tipo de dados e arquivo com um exemplo manual de como quer
pode tbm pegar sua planilha e trocar os nomes e dados por outros

bah
mas como é simples vou dar uma ajuda

sub completa()
li=1
for l=li to cells(rows.count, "a").end(xlup).row
if cells(l,1).value<>"" then
v= cells(l,1).value
else
cells(l,1).value=v
end if
next
end sub

é mais ou menos isso para preencher com os nomes as linhas vazias

e eu reclamando que o pessoal gosta de complicar

sub completa()
li=2
    for l=li to cells(rows.count, "b").end(xlup).row
       if cells(l,1).value<>"" then
            cells(l,1).value= cells(l-1,1).value
       end if
   next
end sub

Amigo Monte um exemplo EXATAMENTE IGUAL A sua planilha.

O que vc vai escrever tanto faz

O que interessa é o formato da planilha que vc tem.

Fala pessoal, boa noite!

Coloquei uma planilha como exemplo..

edcronos2, obrigado, porem esse código eu já tentei, o problema dele é que ele copia a primeira linha em todas as outras. Preciso que quando ele passe por uma célula preenchida, ele pule a linha, e copie o valor de cima...

sub completa()
li=1
for l=li to cells(rows.count, "a").end(xlup).row
if cells(l,1).value<>"" then
v= cells(l,1).value
else
cells(l,1).value=v
end if
next
end sub

descupa, mas vc testou não

Arthur
Arthur
Arthur
Arthur
Arthur
pedro
pedro
pedro
carla
carla
carla
carla
carla
carla
carla
carla
carla

[/list:u:1s7q476u]

o segundo que postei realmente tem erro

 

o segundo tinha erro pq escrevi os 2 aqui mesmo no forum apenas seguindo sua explicação

no segundo eu tinha esquecido de mudar o sinal já que a ação era oposta

    Sub completa2()

        For l = 1 To Cells(Rows.Count, "b").End(xlUp).Row
           If Cells(l, 1).Value = "" Then
                Cells(l, 1).Value = Cells(l - 1, 1).Value
           End If
       Next
    End Sub

Sua planilha nao tem titulos ???

So tem essas colunas???

Ou seja é assim mesmo???

Os dados a serem tratados começam mesmo na linha 1??

Existem essas linhas vazias entre os nomes??

Como eu disse os dados nao precisam ser reais mas o formato sim

edcronos2, muito obrigado cara! Me salvou!!!

Valew!