dynamic PrintArea development

[Chuck6475]

2003 / w7

I have several Advanced filters that differ naturally by length not by width. I'm using a routine to group pages and print a single PDF. It works fine. Now for the "touchy feely" stuff. I'd like to eliminate the unnecessary printed "rows" from the print area.

    'GROSS SKINS
        If checkGskinsbyflight Then
            With Sheets("AFlightG")
                .Visible = True
                .Select
                 
                 Range("AF15").Select
                 Range("RawScores").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
                     Range("AD1:Ag2"), CopyToRange:=Range("A10:AC10"), unique:=False
                     
                FinalRow = .Cells(Application.Rows.Count, 2).End(xlUp).Row
                finalcol = .Cells(10, Application.Columns.Count).End(xlToLeft).Column
                Set rnData = .Cells(1, 1).Resize(FinalRow, finalcol)
            
                .PageSetup.PrintArea = rnData
                
            End With
                     Else
                     
                     Sheets("AFlightG").Visible = False
                     End If

As you can tell by the question, it isn't working. I know someone out there will do it in 4 lines and someone else in 2. AND they will work. You people are amazing!

 

[Chuck6475]

Okay so I made it harder than it had to be,

This worked fine........

                FinalRow = .Cells(Application.Rows.Count, 2).End(xlUp).Row
                .PageSetup.PrintArea = "$A$1:$ac$" & FinalRow