Combining values from destignated cells

[Brew]

How do I create a macro or formula that look at the values in H28:J31 table and list every possible combination of each number value within the H column with the I column and the J column and produce the results starting
in H34:J34.

example 1:
H28=0
I28=4
J28=7
J29=9

Result
H34:j34=047
H35:J35=049

example 2:
H28=0
H29=1
I28=4
J28=7
J29=9

Result
H34:j34=047
H35:J35=049
H36:J36=147
H37:J37=149

 

[P Sitaram]

Try this:

Sub CombHIJ()
    Dim h As Integer, i As Integer, j As Integer
    Dim Hcells As Range, ICells As Range, JCells As Range
    Dim StRg As Range
    
    Set StRg = [h34]
    Set Hcells = Range("H28:" & [h32].End(xlUp).Address)
    Set ICells = Range("I28:" & [i32].End(xlUp).Address)
    Set JCells = Range("J28:" & [j32].End(xlUp).Address)
    
    For h = 1 To Hcells.Cells.Count
        For i = 1 To ICells.Cells.Count
            For j = 1 To JCells.Cells.Count
                StRg = Hcells.Cells(h)
                StRg.Offset(0, 1) = ICells.Cells(i)
                StRg.Offset(0, 2) = JCells.Cells(j)
                Set StRg = StRg.Offset(1, 0)
            Next j
        Next i
    Next h
    
            
End Sub