Ir a otro libro hacer cálculos y el resultado a mi libro original

Necesito un botón de comando en la hoja actual del libro "cliente", que al accionarlo,al libro "resumen" le asigne en la hoja "consecutivos" a la ultima celda vacía de la primera columna el valor consecutivo de la celda anterior, y luego, ese valor se lo asigne a la cells(5,10) del libro "cliente" . He creado esta sub pero no pasa de la segunda línea. Les recuerdo, el botón esta en una hoja del libro "cliente", . Agradezco la ayuda.

Sub Botón4_Haga_clic_en()

''detectar la ultima celda vacia en el libro" resumen" hoja "consecutivos"
'j = 2
'While Workbooks("resumen.xlsm").Sheets("consecutivos").Cells(j, 1).Value <> ""
'j = j + 1
'Wend

"asignar a la ultima celda vacia el numero consecutivo de la celda anterior"
'Workbooks("resumen.xlsm").Worksheets("consecutivos").Cells(j, 1).Value = Workbooks("resumen.xlsm").Worksheets("consecutivos").Cells(j - 1, 1).Value + 1

"asignar a la celda 6,10) del libro "cliente" el valor obtenido para la ultima celda de la hoja "consecutivos" del libro "resumen"
Cells(6, 10).Value = Workbooks("resumen.xlsm").Sheets("consecutivos").Cells(j, 1).Value

Endsub