A button to create Sheet2, copy there data from Sheet1 and rename the sheet?

Hello everyone. I'm trying to get a button in excel 2007 that would basically create a duplicate of Sheet1 into Sheet2.

I've looked around the forum and found this code:

Dim NewSht As Worksheet
Set NewSht = Sheets.Add
    NewSht.Move After:=Sheets(Sheets.Count)

    With Sheets("Sheet1")
        .Range("A1").CurrentRegion.Copy Destination:=NewSht.Range("A1")
    End With

But what I'd additionally like to achieve is naming the Sheet2 as ie. Warehouse 2 (and Sheet1 is called, say Warehouse 1) in the process. Is that possible?