Sub DeleteRows()
Application.DisplayAlerts = False
Range(ActiveCell.Offset(1, 0), "A65536").EntireRow.Delete
Application.DisplayAlerts = True
End Sub

--
Best Regards,

Luke M
"Christina" wrote in message
...
Good morning,

Need help with:

Code to delete all rows in Column A below active cell
Turn off warnings in a macro, specifically I am copying a spreadsheet to a
new one, and close original, don't want pop up box to ask if file needs to
be
saved etc.

Thanks


Cristina