Maybe something like this, save your file before running this;

Sub DelSht()
On Error GoTo ErrorHandler
Application.DisplayAlerts = False
With Sheets("Sheet1")
.Cells.Copy
.Cells.PasteSpecial Paste:=xlValues
End With
Sheets("Sheet2").Delete
ErrorHandler:
Application.DisplayAlerts = True
End Sub

Hope this helps
Rowan

"TK" wrote:

Has anybody done this?
Is there a way I can save the current cell values in sheet 1, delete my data
sheet (sheet 2) with a macro?

Thanks