Insert clear contents in MACRO

[Livin404]

Hello I have a Macro that copyies and inserts a new tab (worksheet) and names it. This basically copies the worksheet. What I need is to simply delete the contents.

The current Macro is: I just need to clear the contents of that worksheet as soon as it's done.

Sub AIR_PHT()
Application.ScreenUpdating = False
    Application.CopyObjectsWithCells = False

    Set ws = Sheets("PHT")
    ws.Copy After:=Sheets("PHT")

    Sheets(Sheets("PHT").Index + 1).Name = "PHT AIR"

    Application.CopyObjectsWithCells = True
    Application.ScreenUpdating = True
End Sub

Thank you,

 

[gordsky]

if you want to clear the contents of the "new" worksheet would

sheets(PHT AIR).cells.clearcontents

not do what you need