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)