Sub csvTable2(lName As String, tName As String, fName As String)
    
    Dim tbl As ListObject
    Set tbl = Worksheets(lName).ListObjects(tName)
    Application.DisplayAlerts = False
    Workbooks.Add
    tbl.Range.Copy Range("A1")
    With ActiveWorkbook
      .SaveAs fName, xlCSV, local:=False
      .Saved = True
      .Close
    End With
    Application.DisplayAlerts = True
    
End Sub

= Table.ReplaceValue(#"Filtered Rows","notDefined",each[Артикул],Replacer.ReplaceText,{"Детальная картинка (путь)"})

Sub Sort()
    Dim ws As Worksheet
    Dim tbl As ListObject
    Dim rng As Range
    
    Set ws = ActiveSheet
    Set tbl = ws.ListObjects("myTable")
    Set rng1 = Range("myTable[First Name]")
    Set rng2 = Range("myTable[Last Name]")
    
    With tbl.Sort
        .SortFields.Clear
        .SortFields.Add Key:=rng1, Order:=xlAscending
        .SortFields.Add Key:=rng2, Order:=xlAscending
        .Header = xlYes
        .Apply
    End With
End Sub