Minha macro roda mas não executa as tarefas, help!!!

[Camila Faleiros]

A intenção era criar uma macro para, dependendo do nome colocado na célula, preencher com o respectivo sobrenome. Ela está rodando sem dar erro mas não executa função nenhuma... 

Se souberem o erro, por favor, me ajudem a corrigi-lo

Private Sub Worksheet_Change(ByVal Target As Range)

Dim w   As Worksheet

Set w = Sheets("Planilha1")

w.Select
w.Range("a1").Select

Do While ActiveCell <> ""

        If ActiveCell.Value = "camila" Then
    
            ActiveCell.Offset(1, 0).Select
            ActiveCell.Value = faleiros
            ActiveCell.Offset(-1, 1).Select
            
            Else
            ActiveCell.Offset(0, 1).Select
            
            End If
            
            
        If ActiveCell.Value = "marina" Then
            
            ActiveCell.Offset(1, 0).Select
            ActiveCell.Value = alves
            ActiveCell.Offset(-1, 1).Select
            
            Else
            ActiveCell.Offset(0, 1).Select
            
            End If

        If ActiveCell.Value = "alexandra" Then
            
            ActiveCell.Offset(1, 0).Select
            ActiveCell.Value = pereira
            ActiveCell.Offset(-1, 1).Select
            
            Else
            ActiveCell.Offset(0, 1).Select
            
            End If

Loop

End Sub

[Alyson Ronnan Martins]

Boa tarde @Camila Faleiros

Mude o seguinte item.

ActiveCell.Value = "... Sobre Nome ..."

Quando o campo que deve ser alterado é tipo texto (string) deve ter aspas para não gerar erro.

Eu só vi isso de estranho, apesar de não usar offset para mudar de campo no vba.