Druckbereich

Wie kann ich flexibel das Ende des Druckbereiches festlegen? Das Ende des Druckbereiches schreibe ich als Wert in die Zelle A2.
Müsste das etwa so aussehen:

ActiveSheet.PageSetup.PrintArea = "$A$1:(A2).Value"

Leider funktioniert das nicht.
Besten Dank im Voraus.
Gruss Ralf

Das ist alles was ich bis anhin zustande gebracht habe:

Sub Macro1()
Sheets("Sheet1").Select
Range("A1:S55").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$S$55"
End Sub