Macro to Copy/Move to End a new Worksheet

[JaredMcCullough]

Looking for some help creating a Macro to initiate a New Worksheet cycle. Preferably looking to use a VBA Command button to initiate the process. What I am wanting it to do is copy the second "Worksheet" in the series (ex. Sheet2) and Move to End of worksheets thus creating a copy of the second worksheet as a new template to work on. This is the first sequence of events in the over all goal I just figured it would be best to start one at a time.

 

[JaredMcCullough]

Try:

Sub CopySheet()
    Application.ScreenUpdating = False
    Dim sName As String
    Dim sCode As String
    sName = InputBox("Please enter a name for the sheet.")
    sCode = InputBox("Please enter a code for the sheet.")
    Sheets("B").Copy After:=Sheets(Sheets.Count)
    With ActiveSheet
        .Name = sName
        .UsedRange.Offset(1, 0).ClearContents
        .UsedRange.Offset(1, 0).Interior.ColorIndex = xlNone
        .UsedRange.Offset(1, 0).Borders.LineStyle = xlNone
    End With
    Sheets("Sheet2").Cells(Rows.Count, "M").End(xlUp).Offset(1, 0) = sName
    Sheets("Sheet2").Cells(Rows.Count, "N").End(xlUp).Offset(1, 0) = sCode
    Application.ScreenUpdating = True
End Sub

Mumps,
I was looking to add a portion to the code where sCode is added to cell "W1" of the copied worksheet. Could you help me come up with the context for how to do this.

 

[mumps]

Hi Jared. Add this line:

.Range("W1") = sCode

below this line:

.Name = sName

 

[JaredMcCullough]

Hi Jared. Add this line:

.Range("W1") = sCode

below this line:

.Name = sName

Thanks mumps worked great

 

[mumps]

My pleasure.