vba宏-sheets复制出一个sheet放到最后面

//从第一个sheets复制出一个sheet放到最后面，并修改名称
Sheets(1).Copy After:=Sheets(Worksheets.Count)
ActiveSheet.Name = "contract sheeta"