moin

wenn die erste leere Zelle in Spalte A zu suchen ist

könnte das hier ein Weg sein

Sub Druckbreich_festlegen()
    Dim c As Range
    Set c = Columns(1).Find("", LookIn:=xlValues, lookat:=xlWhole)
    If Not c Is Nothing Then
        ActiveSheet.PageSetup.PrintArea = "$A$1:$Z$" & c.Row - 1
    End If
End Sub

grüßli