Sub Macro1()
Range("A8:B14").Subtotal GroupBy:=1, Function:=xlCount, TotalList:=Array(2), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
With Range("A9:B19")
.Value = .Value
.AutoFilter Field:=1, Criteria1:="=Nombre*", Operator:=xlAnd
.SpecialCells(xlCellTypeVisible).Copy Sheets("data").Range("A14")
End With
Sheets("data").Range("A14:A19").Replace What:="Nombre ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub