Hi Helmut,

Try changing this :

Set rng = Range("A01:D" & lastrow)

To This ;

Set rng = Range("A2:D" & lastrow)

Note l have changed to row 2 because you have set row 1 for titles on
each page, additionally there is not a row01

Regards

Michael