Select just blank row in a range and reduce the size

[DPARDY]

The range is A1 to H150 of data, I want to just select the blank rows with vba and reduce the size to avoid printing 6 pages and only printing 4.

 

[Z51]

Sub DPARDY()
For i = 1 To 150 'Rows 1:150
    For j = 1 To 8 'Columns A:H
        myStr = myStr & Cells(i, j).Value
    Next j
    If myStr = "" Then Rows(i).EntireRow.Hidden = True
    myStr = ""
Next i
End Sub

 

[DPARDY]

Sub DPARDY()
For i = 1 To 150 'Rows 1:150
    For j = 1 To 8 'Columns A:H
        myStr = myStr & Cells(i, j).Value
    Next j
    If myStr = "" Then Rows(i).EntireRow.Hidden = True
    myStr = ""
Next i
End Sub

PERFECT, thank you again.

 

[Fluff]

In your future questions, please mark the post as the solution that actually answered your question, instead of your feedback message as it will help future readers. No further action is required for this thread.