В VBA макрос состоящий из 2 строк
Sheets("Sheet4").Select
Sheets("Sheet4").Copy
копирует Sheet4 из текущего документа в новый (а Sheets("Sheet4").Move - перемещает).
А у аутомэйшена XlWorkSheet есть функция Copy
Теоретически должно Получится, правда сам не пробовал
