Hi Noemi.

Try:

'=============
Public Sub Tester()
Dim SH As Worksheet
Dim rng As Range

Set SH = ActiveSheet

With SH
Set rng = .Range("Print_Area")
.PageSetup.PrintArea = _
rng.Resize(rng.Rows.Count + 1).Address
End With

End Sub
'<<=============


---
Regards,
Norman


"Noemi" wrote in message
...
Hi
Is there a code which can add extra cells to the Print Area.

I currently have a spreadsheet which has a set print area.

When a button is pressed information is entered onto the bottom of the
sheet
after the set Pritn Area.

Is there a way when information is added under the set print area that we
can include the row (applicable cells) into the print area as well.

All we need is to have the print area moved down one row but not change
the
column.

Any help would be great.

Thanks
Noemi