This is part of my code that i am working with and I have one problem. I have array with values (masyvas) and i started new loop to find other values by using masyvas(i,1) values and after that i need that new values would be printed in masyvas(i,2) and i need to group them. It need to look like this:

991988 Gaz.duon.sk"Giros"gaiv.g.1,5L 5_PETØFLAT1,5

PALINK
117388 Silp.gaz.nat.min.v"Tiche'1,5L 5_PETØFLAT1,5

PALINK
RIMI LIETUVA
ŠIAULIŲ TARA
111388 Gaz.nat.min.v"Tiche" 1,5L pet 5_PETØFLAT1,5

PALINK
AIBĖS LOGISTIKA
AIBĖS LOGISTIKA
RIMI LIETUVA
ŠIAULIŲ TARA

4.jpg How it looks now

3.jpg How I need that it would look like

Lentele.png How my data sheet looks like


Here is part of my code where i have this problem now it prints new values next to masyvas(i,2) but not below as I need.

lastrow2 = Sheets("lapas").Cells(Rows.Count, 1).End(xlUp).Row

    rub = lastrow2
    cub = 3

    ReDim masyvas(1 To rub, 1 To cub)
    For i = 1 To rub
       For j = 1 To cub
          masyvas(i, j) = Sheets("lapas").Cells(i, j).Value 'array gets values from filtered data in AKCIJOS sheet
       Next
    Next
    
    Sheets("lapas").Range("A1:C100").Clear



    For i = 1 To rub Step 1
    Set rng2 = grafikas.Cells(6 + h, 2)
    
        prekeskodas = masyvas(i, 1)
        

            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
                    
                    grafikas.Cells(7 + r, 2).EntireRow.Select
                    Selection.Insert Shift:=xlDown
                    grafikas.Cells(7 + r, 3) = akcijos.Cells(m, 3)
                    
                    r = r + 1
                    h = r
                    End If
                    
                End If
             Next m
          
        For j = 1 To cub Step 1
        
          rng2.Offset(i - 1, j - 1).Value = masyvas(i, j)
         
        Next
        
    
    Next