To whom it may concern....
Table (list object) in active sheet
pic1

result
(regional settings, semicolon delimiter)
csv file (save in this workbook path)
open through notepad
pic2

pic3
open csv file

========================
vba code
[Update-1]
Sub SaveAs_CSV_UTF8_Format()
'## AnastasiosGr // 22-June-2023 ##
Dim wb1 As Workbook, wb2 As Workbook
Set wb1 = ThisWorkbook
Dim ws As Worksheet
Set ws = wb1.ActiveSheet
Dim lo
Set lo = ws.ListObjects(1)
Dim sPath, file1Path, file2Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
sPath = wb1.Path & ""
file1Path = sPath & "tmp.csv"
file2Path = sPath & ws.Name & "-utf8.csv"
Set wb2 = Workbooks.Add(1)
lo.Range.Copy Range("A1")
wb2.SaveAs file1Path, FileFormat:=xlCSV, local:=True
wb2.Close False
Dim obj As Object
Dim x
Dim sData
x = FreeFile
Open file1Path For Input As #x
sData = Input$(LOF(x), x)
sData = sData & vbCrLf
Close x
Set obj = CreateObject("ADODB.Stream")
obj.Charset = "utf-8"
obj.Open
obj.WriteText sData
obj.SaveToFile file2Path, 2
obj.Close
Kill file1Path
Set obj = Nothing
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Dim npad
npad = Shell("C:\WINDOWS\notepad.exe " & file2Path, 1)
End Sub
======================
note1
a part of code from this link
https://officetricks.com/vba-to-change-file-encoding-ansi-to-utf8-text-to-unicode/