Colocar o Texto do TextBox na Celula Linha e Verificar.

Question

Ola tenho uma grande duvida.
No meu codigo quero utilizar de uma TextBox em que o usuário digita seu nome e o nome e enviado para uma celula do excel, novamente se outro usuário desejar inserir o nome não quero que ele insira por cima do outro, mas quero que ele verifique se a algum texto na celula  referênte se houver ele pula para proxima. inserindo assim o texto.
No meu codigo utilizei de uma outra ferramenta que ja tinha feito, não ficou muito bom ele busca a linha em branco mas quando começo a digitar ele aparece na celula indicada no codigo.
Queria saber se pelo menos tem como ele pegar e colar na celula vazia " " utilizando o GetText, sei la um (.Paste).


Private Sub TextBox1_Change()

Dim x As String
Dim yobject As DataObject

Set yobject = New DataObject

'////////////////////
Do                                          ' Inicio do LOOP
If IsEmpty(ActiveCell) = False Then         ' Verifica se posição tem ou não texto
    ActiveCell.Offset(1, 0).Select

End If                                      ' Fim de IF

Loop Until IsEmpty(ActiveCell) = True
'///////////////////
Sheets("Plan1").Select

Range("A1").Select

yobject.SetText TextBox1   'Colocar o texto no clipboard do windows

yobject.PutInClipboard

yobject.GetFromClipboard   'Capturar texto do clipboard do windows e colocando em uma célula do excel

Cells(1, 1) = yobject.GetText()

yobject.SetText ""   'Limpa o conteúdo do clipboard do windows

yobject.PutInClipboard

End Sub