Macro Print Help!

[JohnsJL1]

Hi all. I am just beginning using macros (mostly thanks to your forums - THANK YOU!).
I have an order form that I am using the code below to print all rows that have input in Column A.

Sub PrintA()
'prints rows of data, will not print rows if column A is blank
Application.ScreenUpdating = False
Range("A:A").EntireRow.Hidden = False
Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Range("A:A").EntireRow.Hidden = False
Application.ScreenUpdating = True
End Sub

I would like to revise this to always include cells A1 to G6 in the print & exclude any material categories that does not have input in the corresponding cells for a certain range. An example of how it is currently printing is attached. Thank you!

 

[JohnsJL1]

I found a work around to having the categories not print, but now when I print, it prints 7 blank pages due to the extent of all the rows that have data. Is there a way to not print the 7 blank pages?

Macro I am using to print is below:

CODE:
Sub PrintA()
'print range("A1:B5")'
'prints rows of data, will not print rows if column A is blank
Application.ScreenUpdating = False
Range("A8:A235").EntireRow.Hidden = False
Range("A8:A235").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Range("A8:A235").EntireRow.Hidden = False
Application.ScreenUpdating = True
End Sub