Print Macro til Excel

Problem med nedenstående kode til Excel til at vælge printarea

Skal kun have den sidste linie, hvis der er tekst i cell D, samt teksten fra linie 59,cellerne A til M som header
Med nedenstående får jeg headeren row 59(a:m) med, samt alle
linier derefter.

Code:
----------------------------------
Public Sub AutoSetPrintArea()

Dim LastRow As Long

With ActiveSheet
LastRow = .Cells(.Rows.Count, "D").End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = "A59:m" & LastRow


End With

End Sub
-------------------------------------