Print and move cells up

Assuming there are various blanks in column A, before printout, you could use:

Dim cell as Range, myrng as Range
set myrng = Range("A1:A" & Range("B65536").End(xlUp).Row)

For Each cell In myrng

    If cell = "" Then cell.EntireRow.Hidden = True
    
Next cell

Then, after printout, you can just unhide all of the blanks:

For Each cell In myrng

    cell.EntireRow.Hidden = False
    
Next cell

Thanx muchly!!! Worked perfectly....

sooooooo....how would I write a VBA code to do the same thing for columns then???

I copied your other code into my macro button, but how do I get it to hide columns that have nothing in them and unhide them after printing??

Thanx in advance and again for the last help

You would just need to change myrng and the two hidden properties.

Before printout:

Dim cell as Range, myrngRow as Range, myrowCol as Range
set myrngRow = Range("A1:A" & Range("B65536").End(xlUp).Row)
set myrngCol = Range("A1:" & Range("IV1").End(xlToLeft).Column & "1")

For Each cell In myrngRow

    If cell = "" Then cell.EntireRow.Hidden = True
    
Next cell

For Each cell In myrngCol

    If cell = "" Then cell.EntireColumn.Hidden = True
    
Next cell

After printout:

For Each cell In myrngRow

    cell.EntireRow.Hidden = False
    
Next cell

For Each cell In myrngCol

    cell.EntireColumn.Hidden = False
    
Next cell

Sorry to bother AGAIN,

but I got an error message that said...Method 'Range' of object_Global' Failed

What does this mean and how do I fix it???

Tar again