VBA - Page setup

Jeg skal ved hjælp af VBA have lavet noget sideopsætning på en enkelt fane. Det er egentlig ret simpelt:

Hver enkelt side skal blot indeholde 30 rækker! Problemet består i at jeg ikke vil sidde og skrive

Set ActiveSheet.HPageBreaks(1).Location = Range("A40")
Set ActiveSheet.HPageBreaks(2).Location = Range("A70")
osv osv

Jeg ved ikke hvor mange sider det drejer sig - og det er ikke sikkert at den skal starte side 1 i række 11 (som i ovennævnte eksempel)

Anyone????