Inserir dados Textbox no codigo vba

Ola boa dia!

Tenho o seguinte codigo abaixo:


Sub LineUpColumns()

Dim lCounter As Long

lCounter = 1 'set this to the first row number

Do While Range("A" & lCounter).Value <> "" And Range("C" & lCounter).Value <> ""
   If Range("A" & lCounter).Value <> Range("C" & lCounter) Then
       If Range("A" & lCounter).Value < Range("C" & lCounter) Then
           Range("C" & lCounter & ":E" & lCounter).Insert Shift:=xlDown
       Else
           Range("A" & lCounter & ":B" & lCounter).Insert Shift:=xlDown
       End If
   End If
lCounter = lCounter + 1
Loop

End Sub

Tenho tambem um formulario com textbox gostaria de saber como ensiro o valor digitado na textbox no "A" do codigo acima, que no caso é a coluna.


forte abraço.

Bom dia!!

Leia:
http://www.macoratti.net/10/10/vba_ccli.htm
http://guiadoexcel.com.br/cadastro-clientes-vba-excel-imagem-pesquisa
http://www.devmedia.com.br/aprenda-a-inserir-dados-no-excel-com-o-vba/11761
http://www.microsoftexcel.com.br/index.php/excel-dicas-microsoft-excel-vba/57-excel-vba-cadastro.html
http://www.tomasvasquez.com.br/blog/microsoft-office/especial-modelo-de-cadastro-em-excel-e-vba-com-banco-de-bados-em-access


Att