James Bond respondió:

Este es el resultado de la macro, si es lo que buscas esta es la macro Y esta es la macro Option Base 1 Sub CONCATEN() Set tabla = Range("A1").CurrentRegion With tabla TFILAS = .Rows.Count CUENTA = WorksheetFunction.Count(.Columns(1)) ReDim...