VBAコード 

Sub シート作成()
    Dim sheetNames As Variant
    Dim ws As Worksheet
    Dim i As Integer
    sheetNames = Array("normal-item", "item-cat") ' 作成するシート名のリスト
    
    Application.DisplayAlerts = False ' 削除時の警告を無効化
    On Error Resume Next
    
    ' 既存のシートを削除
    For i = LBound(sheetNames) To UBound(sheetNames)
        Set ws = ThisWorkbook.Sheets(sheetNames(i))
        If Not ws Is Nothing Then
            ws.Delete
        End If
    Next i
    
    On Error GoTo 0
    Application.DisplayAlerts = True ' 警告を再有効化
    
    ' 新しいシートを一番最後に作成
    For i = LBound(sheetNames) To UBound(sheetNames)
        ThisWorkbook.Sheets.Add After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
        ActiveSheet.Name = sheetNames(i)
    Next i
    
    
End Sub