Cellen samenvoegen via macro

[Abyss]

Kan iemnad mij helpen??

Ik wil in het bijgevoegde voorbeeld
De gegevens van kolom c d e f g , onder elkaar laten verschijnen. maar wel met de regel die in de kolommen A en B staan.
ik heb in het rood eronder aangegeven hoe het resultaat er uit zou moeten zien. Ik wil dit graag doen via een macro. zou iemand me hier bij kunnen helpen?.

Bekijk bijlage Test 1.xlsx

 

[HSV]

Deze zou het moeten doen.

Sub hsv()
Dim i As Long, j As Long, n As Long, arr
With Sheets("Sheet1")
ReDim arr(.UsedRange.Cells.Count, 3)
     n = 0
  For i = 2 To .Range("A2").End(xlDown).Row
  For j = 3 To .Cells(i, .Columns.Count).End(xlToLeft).Column
        arr(n, 0) = .Cells(i, 1)
        arr(n, 1) = .Cells(i, 2)
        arr(n, 2) = .Cells(i, j)
      n = n + 1
    Next j
   Next i
  Range("A12").Resize(n, 3).Value = arr
End With
End Sub

 

[Abyss]

Deze zou het moeten doen.

Sub hsv()


Geweldig bedankt ..

Dit moest ik hebben. super