Hiding Rows that contain Blanks

[jjm3066]

Hi,

I have a sheet that has columns A:CJ and over 2,000 rows. Columns A-E contain data throughout the 2,000 rows. I want to create a macro, that hides any row that contains blank data from F:CJ.

This is what I have so far and its still hiding rows that contain data:

Sub hideblankrowsincol()
Dim myRg As Range

Set myRg = Range([F4:CJ4].End(xlDown), [A65536:CJ65536].End(xlUp))
On Error Resume Next
Set myRg = myRg.SpecialCells(4)
If Err = 0 Then
myRg.EntireRow.Hidden = True
Else
MsgBox "No blanks"
End If
Set myRg = Nothing
End Sub

 

[VoG]

Try

Sub DelBlanks()
Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
For i = 1 To LR
    Rows(i).Hidden = WorksheetFunction.CountA(Range("F" & i).Resize(, 83)) = 0
Next i
Application.ScreenUpdating = True
End Sub

 

[jjm3066]

Thank you very much that worked perfect!

One other request: I have a book that lets say contains 2,000 lines. Column B and C are an account and then a product, what concantenate to make Column A. Account: Product. This makes up 14 lines of one account and 14 products. I need to add 7 more blank lines after each account ends to add 7 more products. Is there a way to say after each 14th line, add 7 blank rows?