Create Duplicate records based on possible combinations of other values

Note that on mrexcel there is already elegant solution with PQ

Here is the macro code. Pl see changes in file.
Option Explicit

Sub DataRestructure()
Dim M
Dim H1 As Long, I1 As Long, J1 As Long, LR As Long, Ros As Long, T As Long, K As Long
With Sheets("Sheet1")
LR = .Range("A" & Rows.Count).End(xlUp).Row
M = .Range("A3:D" & LR)
Ros = LR - 2
H1 = WorksheetFunction.CountA(.Range("H3:H6"))
I1 = WorksheetFunction.CountA(.Range("I3:I6"))
J1 = WorksheetFunction.CountA(.Range("J3:J6"))
End With
K = Ros * H1 * I1 * J1
With Sheets("Sheet2")
.Columns("A:G").ClearContents
.Range("A1:G1") = Array("Country", "Product Code", "Sub product Code", "Commission%", "Status", "Priority", "Risk")

For T = 1 To H1 * I1 * J1
.Range("A" & 2 + (T - 1) * Ros).Resize(Ros, 4) = M
Next T

For T = 1 To 2
.Range("E" & Rows.Count).End(xlUp).Offset(1, 0).Resize(K / 2) = Sheets("Sheet1").Range("H3").Offset(T - 1, 0)
Next T
For T = 1 To 6
.Range("F" & Rows.Count).End(xlUp).Offset(1, 0).Resize(K / 6) = Sheets("Sheet1").Range("I3").Offset((T - 1) Mod 3, 0)
Next T

For T = 1 To 36
.Range("G" & Rows.Count).End(xlUp).Offset(1, 0).Resize(Ros) = Sheets("Sheet1").Range("J3").Offset((T - 1) Mod 6, 0)
Next T

End With
End Sub

If problem is solved, pl mark the thread SOLVED.

Here is the code for macro.

Maindata=A3:d8
ClmData=H2:K7

Ranges can be changed.
In both the ranges rows can be increased Columns cannot be increased. If columns are to be increased code should be edited.

Sub RepeatData()
Dim MainData As Range, ClmData As Range
Dim T As Long, w As Long, x As Long, y As Long, z As Long, Ros As Long
Dim M, N
With Sheets("Sheet1")
Set MainData = .Range("A3:D8")
Set ClmData = .Range("H2:K7")
End With
M = MainData
N = ClmData
Ros = MainData.Rows.Count
ReDim ClCount(1 To ClmData.Columns.Count)                                            'K = M(1, 1)
For T = 1 To ClmData.Columns.Count
ClCount(T) = Application.CountA(Application.Index(ClmData, , T))
Next T

With Sheets("sheet2")
.Columns("A:H").ClearContents
.Range("A1:H1") = Array("Country", "Product Code", "Sub product Code", "Commission%", "Status", "Priority", "Risk", "Test")                    '"Status", "Priority", "Risk"
For w = 2 To ClCount(1)
For x = 2 To ClCount(2)
For y = 2 To ClCount(3)
For z = 2 To ClCount(4)
.Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Resize(Ros, 4) = M
.Range("E" & Rows.Count).End(xlUp).Offset(1, 0).Resize(Ros) = N(w, 1)
.Range("F" & Rows.Count).End(xlUp).Offset(1, 0).Resize(Ros) = N(x, 2)
.Range("G" & Rows.Count).End(xlUp).Offset(1, 0).Resize(Ros) = N(y, 3)
.Range("H" & Rows.Count).End(xlUp).Offset(1, 0).Resize(Ros) = N(z, 4)

Next
Next
Next
Next
End With
End Sub