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