Copying Sheet to End with Macro

[jesposi1]

Hello. I am having a bear of a time trying to get a macro to work. I am recording the macro (with control buttons) by selecting "copy sheet" and "move to end". When I run the macro, my original control buttons are covered up with new buttons that do not work. How do I copy a sheet "to end" and have my original control buttons still function and not get covered up with new buttons? Is there a VBA code for this?

Thanks...

 

[offthelip]

It would have helped if you had posted the code that you recorded, I assume you got something like this:

Sub Button1_Click()
'
' Button1_Click Macro
'

'
    Sheets("Sheet1").Select
    ActiveSheet.Buttons.Add(207.75, 84, 171.75, 63.75).Select
    Sheets("Sheet1").Copy After:=Sheets(3)
End Sub

To prevent the new buttons being create change it to :

Sub Button1_Click()
'
' Button1_Click Macro
'

'
    Sheets("Sheet1").Select

    Sheets("Sheet1").Copy After:=Sheets(3)
End Sub

i.e. delete the activesheet.buttons.add statement

 

[jesposi1]

Thank you for this. This does copy the sheet without screwing up the command button, but I need it to go to the end of the row of sheets. Every day I need to add a new sheet. Today there is 16, tomorrow there ill be 17,...until the end of the month we are in.If I specify where to put the sheet (in this case (3)). It doesn't go to the end. How can I have go to the end when the number of sheets is +1 each day?

Thanks.

 

[jesposi1]

I was able to figure the rest out. Thank you for your help!