Inserção de dados a partir de formulário

[Chico Xavier]

Olá a todos,

Fiz um formulário para inserção de dados. O código já insere os dados na planilha, porém essa planilha já contém dados anteriormente inseridos e ele insere os dados nas linhas

de cima, sobrescrevendo dados anteriores. Gostaria de inserir esses dados à partir do último dado inserido, na coluna A da planilha. Ex: útlimo dado esteja na linha 34, inserir

dados novos na linha 35 começando na coluna A.

O código está assim:

Private Sub CommandButton1_Click()

Dim bd As Database

Dim rs As Recordset

Set bd = OpenDatabase(ThisWorkbook.Path & "\" & ThisWorkbook.Name, False, False, "EXCEL 8.0")

Set rs = bd.OpenRecordset("Prod-Acompanhamento$", dbOpenDynaset)

If Me.TextBox1 = "" Then

Me.TextBox1 = "-"

End If

If Me.TextBox2 = "" Then

Me.TextBox2 = "-"

End If

If Me.TextBox3 = "" Then

Me.TextBox3 = "-"

End If

If Me.TextBox4 = "" Then

Me.TextBox4 = "-"

End If

If Me.TextBox5 = "" Then

Me.TextBox5 = "-"

End If

Dim CADASTRO(1 To 5)

CADASTRO(1) = UCase(Me.TextBox1)

CADASTRO(2) = UCase(Me.TextBox2)

CADASTRO(3) = UCase(Me.TextBox3)

CADASTRO(4) = UCase(Me.TextBox4)

CADASTRO(5) = UCase(Me.TextBox5)

Dim UserForm1 As Object

Dim L, I

Set UserForm1 = Plan1.Cells(1, 1).CurrentRegion

L = UserForm1.Rows.Count + 1

For I = 1 To 5

Plan1.Cells(L, I).Value = Trim(CADASTRO(I))

Next I

MsgBox "CADASTRADO", vbInformation, " COM SUCESSO"

ThisWorkbook.Save

End Sub

Já tentei alguma alterações porém não surtiram efeito. Solicito um help na alteração do código para inserção na linha vazia após último dado.

Atenciosamente,

Francisco Xavier

[Paulo Semblano]

No lugar de:

L = UserForm1.Rows.Count + 1

Tente:

L = Plan1.Range("A65536").End(xlUp).Row + 1

[Chico Xavier]

Muito obrigado Paulo, resolveu meu problema.

Abraço