پرسش جلوگیری از پرینت صفحات خالی

[saeid_f]

با سلام
من صفحه ای دارم که در 2000 سطر آن فرمول نوشته شده ولی معمولا تعدادی کمی از سطرها دارای اطلاعات است و اکثرا بقیه سطرها خالی است.
کد لازم داشتم که به صورت خودکار از سطرهای خالی در پرینت صرفنظر کنه.
کدهایی هست که به صورت دینامیک print area رو ست میکنه ولی من نتونستم استفاده کنم. مثل کد زیر:

Sub SaveActiveSheetsAsPDF()

Application.ScreenUpdating = False

Dim rng As Range
On Error Resume Next
i& = Worksheets("sheet3").Cells(Rows.Count, 1).End(xlUp).Row
Set rng = Worksheets("sheet3").Range("A1:E2000" & i)
 
  With Worksheets("sheet3").PageSetup
    .PrintArea = rng.Address
    .Orientation = xlPortrait
  End With
 
Application.ScreenUpdating = True
End Sub