Copie programaticamente dados de um workshet para outro Excel

'This essientally clones the "Source" worksheet

ExcelWorkBook.Sheets("Source").Copy(After:=ExcelWorkBook.Sheets("LocationSheet"))
ExcelWorkBook.Sheets(ExcelWorkBook.Sheets.Count).Name = "NewSheetName"
Salty Joe