Below is an example to copy a worksheet in Excel.
' This code was borrowed from http://www.viiweb.com and is free to use without
' warranties or guarantees.
Sub copySheet(ByRef strSourceSheetName As String, ByRef strNewSheetName As String)
Sheets(strSourceSheetName).Copy Before:=Sheets(1) ' to be the first sheet
Sheets(1).Name = strNewSheetName ' name the sheet so that we can call it later by name
Tested Platform: Excel 2010