Sub TZ()
Dim textarr()
Dim materiallarr()
Dim tipearr()
Dim colourarr()
Dim laminationarr()
Dim i As Integer


i = ActiveCell.Row 'строка ячейка под нажимаемой кнопкой

Do
i = i - 1

Loop Until Cells(i - 1, "A").Value = "Начало отсчета" 'поиск ячейки, находящейся перед нужным диапазоном)

       
        
        
        Do
            i = i + 1 'проход по строкам
            Text = Cells(i, "A").Value
                material = Cells(i, "G").Value
                    tipe = Cells(i, "L").Value
                        colour = Cells(i, "N").Value
                            lamination = Cells(i, "M").Value
           ReDim Preserve myArray(i)
           ReDim Preserve materiallarr(i)
           ReDim Preserve tipearr(i)
           ReDim Preserve colourarr(i)
           ReDim Preserve laminationarr(i)
           
   
   
   
textarr(i) = Text 'собирается массив из всех наименований деталей изделия
materiallarr(i) = material 'собирается массив из всех материаллов для деталей
tipearr(i) = tipe 'собирается массив из всех видов нанесения на детали
colourarr(i) = colour 'собирается массив из цветности печати
laminationarr(i) = lamination 'собирается массив по типу ламинации
   
Loop Until Cells(i, "A").Value = 0 'останавливается проход по ячейкам

'позднее эти массивы в виде строк недо отправить на сайт
MsgBox Join(myArray, vbCrLf)
MsgBox Join(materiallarr, vbCrLf)
MsgBox Join(tipearr, vbCrLf)
MsgBox Join(colourarr, vbCrLf)
MsgBox Join(laminationarr, vbCrLf)
End Sub

Sub find_range()
Dim a As Range
For Each sht In ActiveWorkbook.Worksheets
            For Each a In Worksheets(sht.Name).Range("H25:N25")
            MsgBox a
            Next a
Next sht
    
End Sub