Hi,

I've been bouncing around researching this and it's just not coming together.

Here's what I need to do.

I have a range from E1:H90. However, below E9 I need to end the print range
when I have 2 sequential empty cells.

Here's the code I have so far:


Sub PrintDoc1()
'
' PrintDoc1 Macro
' Dim LastRow As Long

LastRow = Worksheets("Sheet1").Range("E9").End(xlDown).Row + 1
Range("E1:"&LastRow).Select
Selection.PrintOut Copies:=1, Collate:=True

End Sub

1. This doesn't work
2 How do I check for 2 sequential empty cells below E9?
3. How do I tell it to only print columns E through H?

I would need this to work for whatever is the active worksheet.

Thanks in advance.