Excel descer conteúdo de uma célula ao colocar letra x

[Soul H4d3s]

Boa tarde,

Precisa de uma formula que ao colocar "X" na linha B ele copie o conteúdo da linha A e cole na próxima célula vazia da linha A, conforme exemplo abaixo:




Ao colocar X na célula B4, o nome que estava na A4 desceu para A6 que era a próxima célula vazia.

OBS: Lembrando que precisa descer para próxima célula vazia da linha A, pois as vezes iremos adicionar um nome manual na linha A.



Desde já, agradeço

[Basole]

@Soul H4d3s como você disse que na [ coluna A ], as vezes serão inseridos dados manualmente, segue sugestão com macro

 

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Or Target.Text = "" Then Exit Sub

If Not Application.Intersect(Target, Range("B2:B999")) Is Nothing Then
  If VBA.UCase(Target.Value2) = "X" Then
        Cells(Cells(Rows.Count, "A").End(xlUp).Offset(1).Row, "A").Value = _
                                               Target.Offset(, -1).Value2
  End If
End If

End Sub

 

* Para inserir a macro, selecione o nome da respectiva aba e com botão direito do mouse, click em "Exibir Código" em seguida cole o código acima e salve sua planilha como "Pasta de Trabalho Habilitada para Macro do Excel"

[Soul H4d3s]

@Basole Show, meu amigo! Perfeito, resolveu o problema!