Juan Carlos González Chavarría

Para ir a la última primera celda vacía: Range("M65535").Select

Utiliza la función =Contara() en una celda y después puedes poner la leyenda.

En realidad no se puede porque solo se aceptan hasta 255 caracteres por celda.

Lo veo un poco complicato y sin sentido. ¿Los datos está en una sola celda o varias?

¿Por qué no haces una Tabla Dinámica?. Te servirá de mucho en el análisis de otros datos.

No que yo sepa, lo muchos hacen es tomar la foto, guardarla y por último insertarla en Excel.

Te vas a las opciones de la Tabla y escoges Insertar Campo Calculado. Le puedes poner como nombre Saldo y como operación puedes usar =Débitos - Créditos. Claro está que se pueden hacer más operaciones, es solo de que uses tu imaginación.

.SaveAs Filename:=ruta & nbre & ".xls", _

Dim i As Integer Range("A5").Select For i = 1 to Range("A1").Value 'Suponiendo que aquí pones el número Activecell.Value = i ActiveCell.Offset(1, 0).Selet Next i Y listo, ya tienes tu listado.

Hoja2.Cells(q + 1, r).Select With ActiveCell .Font.Bold = True End With