[RESOLVED][VBA] Help with macro to copy worksheet

[newtovba]

Hi All,
I'm trying to create a macro that copies the current worksheet and places the copied ws before it. I've gotten as far as below, but that only copies the ws and places it in the second to last tab. Thanks in advance for any help.


Sub Copysheet()

Dim i As Integer
Dim p As Integer
On Error GoTo out
i = InputBox("How many copies would you like?", "Making Copies")

Application.ScreenUpdating = False
p = 0
Do
ActiveSheet.Copy Before:=Sheets(Sheets.Count)
p = p + 1
Loop Until p = i
Application.ScreenUpdating = True
Exit Sub
out:
MsgBox "Copy Cancelled"
Application.ScreenUpdating = True
End Sub