Private Sub Open_Workbooks()

Const iPath$ = "C:\Users\User\Desktop\09\месяца\Новая папка"
iFileName$ = Dir(iPath$ & "*.csv")
Do While iFileName$ <> ""
              Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
        Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _
        ), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array _
        (20, 1), Array(21, 1), Array(22, 1), Array(23, 1), Array(24, 1), Array(25, 1), Array(26, 1), _
        Array(27, 1), Array(28, 1), Array(29, 1), Array(30, 1), Array(31, 1), Array(32, 1), Array( _
        33, 1), Array(34, 1)), TrailingMinusNumbers:=True
    Columns("A:A").Select
    Selection.Delete Shift:=xlToLeft
    Rows("1:23").Select
    Selection.Delete Shift:=xlUp
    Columns("B:R").Select
    Selection.Delete Shift:=xlToLeft
    Range("C1").Select
    Selection.AutoFill Destination:=Range("B1:C1"), Type:=xlFillDefault
    Range("B1:C1").Select
    Columns("C:K").Select
    Selection.Delete Shift:=xlToLeft
     

   iFileName$ = Dir
Loop
End Sub