Как распечатать значения, полученные мной из цикла на другом листе, на другой лист

Привет, ниже мой код, который я работаю с excel vba, и у меня есть значения, которые мне нужны, но я не могу их распечатать.

Вот некоторые значения, которые я получил:

117388 "Наименование продукта" 5_PETØFLAT1,5

• Использование Sort в VBA для диапазона, который изменяется
• VBA Sort Macro не работает
• Вставьте данные ячейки в одну строку (от A1 до An)
• читать строковые данные из excel и сортировать их в алфавитном порядке в matlab
• Как cutsom сортировать лист Excel в VBA

111388 "Наименование продукта" 5_PETØFLAT1,5

И с помощью cicle in array (значения masyvas wit, такие как 117388), я получил другие значения wit для cicle from table inother на другом примере «akcijos» ниже, и мне нужно напечатать некоторые из этих значений, например, от 1-4 ниже «Product Name» в 2 столбец в отдельных строках, а затем другие 5-7 ниже другого «названия продукта», и в конце мне нужно сгруппировать строку имени Produc и 1-4 строки ниже, которые были напечатаны.

1. Palink
2. RIMI LIETUVA
3. ŠIAULIŲ TARA
4. Palink
5. AIBĖS LOGISTIKA
6. AIBĖS LOGISTIKA

7. RIMI LIETUVA

   Dim lastrow2 As Integer Dim masyvas() As Variant Dim x As Integer Dim laikas As Date Dim laikas2 As Date Dim y As Integer Dim prekeskodas As String Dim m As Integer Dim z As Integer Dim s As Integer Dim rng As Range lastrow2 = grafikas.Cells(Rows.Count, 2).End(xlUp).Row For z = 6 To lastrow2 ReDim Preserve masyvas(z) masyvas(z) = grafikas.Cells(z, 2).Value Next z For i = LBound(masyvas) To UBound(masyvas) prekeskodas = masyvas(i) For m = 2 To lastrow If akcijos.Cells(m, 8) >= laikas And akcijos.Cells(m, 8) <= laikas2 Then If prekeskodas = akcijos.Cells(m, 4) Then Sheets("grafikas").Cells(z, 3) = akcijos.Cells(m, 3) z = z + 1 End If End If Next m Next i 

   End Sub