last row (problema con datos)

[polboy_mx]

tengo este codigo para un useform donde capturo datos, deberian ubicarse en el ultimo renglon de mi base de datos...
Private Sub btn_prodxklienteOK_Click()
Dim LastRow As Long

LastRow = Worksheets("pxk").Range("A65536").End(xlUp).Row + 1
Cells(LastRow, 1).Value = tb_idkliente.Value
Cells(LastRow, 2).Value = cb_kliente.Value
Cells(LastRow, 3).Value = cb_artikulos.Value
Cells(LastRow, 4).Value = tb_cantidad.Value
Cells(LastRow, 5).Value = tb_dolar.Value
Cells(LastRow, 6).Value = tb_pesos.Value
Cells(LastRow, 7).Value = Calendar1.Value
Cells(LastRow, 8).Value = tb_factura.Value
Unload Me
End Sub

 

[Von Pookie]

Aquí, por favor: http://www.mrexcel.com/board2/viewtopic.php?t=224067