使用VB代码将新工作表添加到现有Excel工作簿

This code creates an Excel file with one sheet. This sheet contains the code of an item like (ASR/Floor/Dept./Item_Name/Item_details/1) which I created and works fine, but I want to add a sheet into this Excel file to create another item code, and then save this file.This code creates an Excel file with one sheet.