Nummering af ark ved udskrift

Jeg har ovenstående makro, som udskriver et worksheet, hvor udskriften af arket kommer på 4 a4 ark. Mit problem er, at når de to første ark er udskrevet (Range("b2:g" & R).PrintPreview 'Copies:=1, Collate:=True), så viser rightheader 1 af 2 og 2 af 2, men egentlig skulle der stå 1 af 4 og 2 af 4. tilsvarende skal (Range("I2:n" & R).PrintPreview 'Copies:=1, Collate:=True) give 3 af 4 og 4 af 4. Kan det lade sig gøre?

Kan nedenstående kode forenkles?

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