Stacked columns from dataset

[junkpolar]

Hi there,
New to VBA - have tried a few different bits of code but can't find one that achieves what I need.

Trying to transfer a 2-axis dataset into stacked columns, removing zero balances. I want to populate adjacent columns with the headers along each axis.

Below / linked image

is an example. Dataset is approx 7000 cells.

Any help would be fantastic.
Many thanks!

 

[ravishankar]

Try the following macro codes.

Sub stack_data()
Dim x As Integer, a As Integer, b As Integer, c As Integer
x = Cells(Rows.Count, 1).End(xlUp).Row
For a = 1 To x
b = Application.WorksheetFunction.CountIf(Range("B" & a & ":D" & a), "")
If b < 3 Then
For c = 1 To 3
If Cells(a, c + 1) > 0 Then
Cells(a, 8) = Cells(1, c + 1)
Cells(a, 9) = Cells(2, c + 1)
Cells(a, 10) = Cells(a, 3)
Cells(a, 11) = Cells(a, 4)
Cells(a, 12) = Cells(3, c + 1)
End If
Next c
End If
Next a
MsgBox "complete"
End Sub

I could not test it since your dataset was an image and my efforts with OCR did not help.
Ravi