Ränder einstellen in VBA

Im folgenden Makro möchte ich links und rechts noch die Ränder einstellen. Wie muss ich dieses Makro ergänzen?

Sub test()
'--- Blatt A4 quer einfügen
Worksheets.Add After:=Sheets("Pilot")
ActiveSheet.Name = "Test"
With ActiveSheet.PageSetup
.Orientation = xlLandscape
End With
'--- Blatt Zoo einstellen
ActiveWindow.Zoom = 90
'--- Zeile fixieren
Range("A2").Select
ActiveWindow.FreezePanes = True
End Sub

Vielen Dank Gregor