How to Print range excluding blank rows with formulas

How to print range excluding blank rows with formulas

Requirement:

The user is trying to set a print range in a report. The report is built off of a pivot table. The pivot table can change in size each month. In order to build the report the formulas are dragged down far beyond the number of rows ever needed in the report however when setting up the print report macro it includes all of the blank rows that have formulas in it.

Solution:

Code:

Sub PrintByMallInPlaceDollars()
     
    Set ms = Nothing
    Dim LastRow As Long
    With Worksheets("By Mall - In Place")
         'LastRow = .Range("A" & Rows.Count).End(xlUp).Row
        LastRow = Sheets("By Mall - In Place").Columns("D").Find("*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows, LookIn:=xlValues).Row
        ActiveSheet.PageSetup.PrintArea = "$A$1:$D" & LastRow  ' <<== DIFFERENT HERE
        ActiveWindow.ActiveSheet.PrintPreview
         
    End With
     
End Sub