llenando por filas

Hola a todos
Quisiera que me den una mano con este proyecto que tengo para crear un
informe diario de mis egresos/ingresos, hace unos dias les pregunte que
se podia hacer y Fernando Arroyo me dio una mano (gracias Fer!!).
Al parecer mi falta de conocimientos para 'debugguear' no me está
dejando complentar la tarea puesto que cuando implemento esta linea en
'thisworkbook":
Dim lngFilaLibreEnColumnaA As Long
lngFilaLibreEnColumnaA = Worksheets("Comprobante de
Ingreso").Range("A65536").End(xlUp).Row + 1

Me da un error de compilacion.

Quisiera saber como insertar un texto que escriba en un cuadro de
dialogo digamos:

Dim nombre as string
Dim monto as string

Nombre = InputBox("A que nombre el cheque?", "Nombre")
Monto = InputBox("Indique el monto del cheque")


Entonces que esos strings se vayan acomodando en un par de columnas
conforme van apareciendo.
COL_A COL_B
FILA_1 javier avila 20
FILA_2 juan perez 200
FILA_3 carlos juarez 100
...

y asi sucesivamente. Es posible? o me estoy metiendo a camisa de 11
baras? alguien me puede seguir dando la mano? gracias a todos por su
tiempo y les agradezco por adelantado.


Javier Avila
Administrador de Sistemas
VISCARRA
Ópticas & Laboratorios
Tel.: 3322664 Int.: 105


"...LEY DE QUIGLEY. Un coche y un camión que se van a cruzar en una
carretera desierta, se encontrarán siempre en el paso más estrecho."