Создать макрос для генерирования csv файла из накладной xls

Sub Makro4()
 
  Dim oFSObj As Object, oTSStream As Object
    Dim lngRow As Long, lngCol As Long
    Dim rngeRangeToWrite As Range
    Dim strTextFile As String, strDelimiter As String
        
    'Choose your delimiter here.  Can be anything you want
    strDelimiter = ";"
 
    Dim cText As String, file As String
    Dim fsT, tFilePath As String
 
    cText = Chr(13) + Chr(10)
 
    'location and name of file you want to create
    tFilePath = "C:\BPSS\customer_update.csv"
    
    'Create Stream object
    Set fsT = CreateObject("ADODB.Stream")
    
    'Specify stream type - we want To save text/string data.
    fsT.Type = 2
    
    'Specify charset For the source text data.
    fsT.Charset = "utf-8"
    
    'Open the stream And write binary data To the object
    fsT.Open
 
    'You can either use the 'Used range', or use something like
    'Set rngeRangeToWrite = Range("A1:E10")
    Set rngeRangeToWrite = ActiveSheet.UsedRange
 
 
    'This loop is for looping from the top of the sheet to the bottom
    For lngRow = 1 To rngeRangeToWrite.Rows.Count
 
        'This loop will write one cell at a time for the current row
        For lngCol = 1 To rngeRangeToWrite.Columns.Count
        
            If lngCol = rngeRangeToWrite.Columns.Count Then
                cText = cText & rngeRangeToWrite.Cells(lngRow, lngCol)
            Else
                cText = cText & rngeRangeToWrite.Cells(lngRow, lngCol) & strDelimiter
            End If
                                    
        Next lngCol
 
        'The vbCr character denotes the end of a text file
        cText = cText & vbCrLf
        
    Next lngRow
        
fsT.writetext cText
fsT.SaveToFile tFilePath, 2
 
MsgBox "File is ready. Loacation: " & tFilePath, vbOKOnly, "Warning!"
 
End Sub