I figured out how to copy the worksheet using this:

Private Sub CommandButton1_Click()
Dim N As String, c As Integer, i As Integer, j As Integer
N = InputBox("New Door Number")
If N = "" Then Exit Sub
Worksheets(ActiveSheet.Name).Copy after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = N
c = Sheets.Count: For i = 1 To c - 1: For j = i + 1 To c
If UCase(Sheets(j).Name) < UCase(Sheets(i).Name) Then Sheets(j).Move before:=Sheets(i)
Next j: Next i:

End Sub

Is there a way to add in a clear/reset code for the newly created sheet?