Hjælp med udskrifts makro

Sub udskrift1()

With ActiveSheet.PageSetup
    .PrintTitleRows = "$1:$1"
    .RightHeader = "" & Chr(10) & Chr(10) & " &""Arial,Fed"" Side &P af &N    &D"
    .LeftMargin = Application.InchesToPoints(0.953700787401575)
    .TopMargin = Application.InchesToPoints(0.98425196850394)
    .BottomMargin = Application.InchesToPoints(0.98425196850394)
    .PaperSize = xlPaperA4
    .LeftFooter = ""
End With

Dim R As Long
R = Range("B1").SpecialCells(xlLastCell).Row
Range("b2:g" & R).PrintPreview 'Copies:=1, Collate:=True
Range("I2:n" & R).PrintPreview 'Copies:=1, Collate:=True

End Sub