Printing only final row of data

Hi! I have a spreadsheet I am working on in which multiple columns have variable amounts of data input. I only want to print down to the last row filled in.

All data is entered in column F. I am using the following macro (found here):

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

The problem is, I have other fields off to the side that extend down to row-18. If only a few items are entered into column F (that is, if the data doesn't fill through row-18), this macro cuts off all of that extra information.

I want to always print through row-18, and after that have it cut off after the last item entered in column F.

Thanks!

Untested, but maybe try:

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

You're welcome.



If you are satisfied with the solution(s) provided, please mark your thread as Solved.


New quick method:
Select Thread Tools-> Mark thread as Solved. To undo, select Thread Tools-> Mark thread as Unsolved.

Or you can use this way:

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save


You may also want to consider thanking those people who helped you by clicking on the little star at the bottom left of their reply to your question.

You're welcome. Thanks for the rep.