omg you are the best (Y), somehow now im being asked for more <.< i'll try to comprehend what u did to adapt it to what i need now.

The problem now is that theres a blank space between the names in the columns. i used ur macro but it grabs also the blanks spaces.

After the line : Worksheets("Hoja5").Activate


insert this:


Dim i As Integer
For i = 2 To 100
If Sheets("Hoja5").Range("A" & i).Value = 0 Then
'delete empty rows
Rows(i & ":" & i).EntireRow.Delete

End If
Next i


If you replace "Delete" from above to "Hidden = True", it will just hide empty rows, instead of deleting them

Attached Files

example.xlsm (20.7 KB, 12 views)