xls形式で保存する：FileFormat:=xlNormal
xlsx形式で保存する：FileFormat:=xlWorkbookDefault


Sub main()
    'パス設定
    path = ActiveWorkbook.path
    copyPath = path & "\単価入力.csv"
   
    Set wBook = Workbooks.Open(copyPath)
    ActiveWindow.Visible = False
    Set wSheet = wBook.Sheets(1)
   
    wBook.SaveAs path & "\Super001", FileFormat:=xlWorkbookDefault
'    wBook.SaveAs path & "\Super001", FileFormat:=xlNormal
    wBook.Close
   
    Set wBook = Workbooks.Open(path & "\Super001")
    wBook.Activate
    wBook.Sheets(1).Activate
   
    '列の追加
    customTable
               
    Dim ret As Long
    ret = MsgBox("完了しました", vbOKOnly)

End Sub