Listing each different combination configuration

[Brew]

Is there a formula or code that will take each 3 digit combination in the range C6:E90 and place the 6 different ways each combination can be configured into columns G, H, I, starting with row 6.
Example:
If c6:e6=056
Then, G6:I11=056,065,506,560,605,650
And if c7:e7=231
Then, G12:I17=231,213,321,312,123,132
and so on

Each digit is different within the combination, there are no duplicates

 

[Brew]

agihcam, how do i update as a separate code to execute the function if the data is in column N,O,P and the target results is in column R,S,T?

 

[agihcam]

Sub sample() 
Dim i As Long 
Application.ScreenUpdating = False 
Range("r5:t" & Rows.Count).ClearContents 
Range("r5").Resize(, 3).Value = Array("h1", "h2", "h3") 
For i = 6 To Range("n" & Rows.Count).End(xlUp).Row 
Range("r" & Rows.Count).End(xlUp).Offset(1).Resize(, 3) = Array(Cells(i, "n"), Cells(i, "o"), Cells(i, "p")) 
Range("r" & Rows.Count).End(xlUp).Offset(1).Resize(, 3) = Array(Cells(i, "n"), Cells(i, "p"), Cells(i, "o")) 
Range("r" & Rows.Count).End(xlUp).Offset(1).Resize(, 3) = Array(Cells(i, "o"), Cells(i, "n"), Cells(i, "p")) 
Range("r" & Rows.Count).End(xlUp).Offset(1).Resize(, 3) = Array(Cells(i, "o"), Cells(i, "p"), Cells(i, "n")) 
Range("r" & Rows.Count).End(xlUp).Offset(1).Resize(, 3) = Array(Cells(i, "p"), Cells(i, "n"), Cells(i, "o")) 
Range("r" & Rows.Count).End(xlUp).Offset(1).Resize(, 3) = Array(Cells(i, "p"), Cells(i, "o"), Cells(i, "n")) 
Next 
Range("r5").Resize(, 3).ClearContents 
Application.ScreenUpdating = True 
End Sub

 

[Brew]

Thanks that worked