программно копировать данные из одного семестра в другой Excel
'This essientally clones the "Source" worksheet
ExcelWorkBook.Sheets("Source").Copy(After:=ExcelWorkBook.Sheets("LocationSheet"))
ExcelWorkBook.Sheets(ExcelWorkBook.Sheets.Count).Name = "NewSheetName"
Salty Joe