Macro para inserir dados em linha

[Nyarady02]

Bom dia, Srs.

 

Estou querendo fazer uma macro para que cada dado digitado em cada TextBox seja inserido em cada linha uma debaixo da outro e não inserido em cada coluna.

Poderiam me ajudar.

 

Obrigado

[Xflapc2]

ActiveSheet.Range("B3").Value = UserForm1.TextBox1.Text

 

Agora tem que criar o botão "Inserir" e um código para calcular a posição da próxima célula em branco que substituirá o "B3".

[Basole]

Com o codigo abaixo os dados serão inseridos na primeira linha em "branco" da coluna "A"

Dim linhaAbaixo as Long

linhaAbaixo = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

ActiveSheet.Range("A" & linhaAbaixo).Value = Me.TextBox1.Text