Sub zzzzz()
Dim Arr(1000, 40)
    MsgBox "Укажите путь к сбыту"
    FilePath1 = Application.GetOpenFilename()
    MsgBox "Укажите путь к заполняемому файлу"
    FilePath2 = Application.GetOpenFilename()
Workbooks.Open Filename:=FilePath1, UpdateLinks:=0
    Range("A65536").Select
    Selection.End(xlUp).Select
    Rowsend1 = ActiveSheet.Cells.Row
    For i = 2 To 1000
    For j = 1 To 35
        Arr(i, j) = ActiveSheet.Cells(i, j).Value
    Next
    Next
ActiveWindow.Close (False)
Workbooks.Open Filename:=FilePath2, UpdateLinks:=0
Worksheets("вся техника").Activate
    Range("A65536").Select
    Selection.End(xlUp).Select
    Rowsend2 = ActiveSheet.Cells.Row + 1
    For i = 2 To 1000
            ActiveSheet.Cells(Rowsend2, 3).Value = Arr(i, 1)
            ActiveSheet.Cells(Rowsend2, 20).Value = Arr(i, 23)
            ActiveSheet.Cells(Rowsend2, 4).Value = Arr(i, 2)
            ActiveSheet.Cells(Rowsend2, 6).Value = Arr(i, 10)
            ActiveSheet.Cells(Rowsend2, 7).Value = Arr(i, 9)
            ActiveSheet.Cells(Rowsend2, 19).Value = Arr(i, 22)
            ActiveSheet.Cells(Rowsend2, 21).Value = Arr(i, 11)
            ActiveSheet.Cells(Rowsend2, 23).Value = Arr(i, 26)
            Rowsend2 = Rowsend2 + 1
    Next

End Sub