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
|