'This essientally clones the "Source" worksheet

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