James Bond respondió:
Si entendí bien lo que quieres es esto, entonces debajo de esta imagen esta la macro que ocupas esta es la macro Sub separar_filas() Dim unicos As New Collection Set datos = Range("a1").CurrentRegion With datos filas = .Rows.Count For i = 1 To filas...