Combination Generator for Single List

Respected Members,
I am a Ph.D. Scholar in Japan. I need a combination generator on an almost daily basis for my data analysis. As you all are well aware of the student's situation in this pandemic. I have seen one video on youtube and exactly this sheet 1 needs but paid. I am unable to buy this sheet. I am requesting all experts in this group to help e in this regard. I am attaching the Video link for the reference file. I am not allowed to paste the link here below is the title of the video on youtube.

Reference file: Combinations Generator Excel Template - Single List - No Repetitions

Seeking an encouraging response.

Please share what you have done so far and then members can help. NOBODY is going to watch a YouTube clip, build the solution and hand it to you on a plate. Sorry - you have got the wrong idea of the way it works here. We offer HELP only, we do not work to a brief. I hope you understand.

R=1
ds
lcs
csrp
oe

r=2
ds/lcs
ds/csrp
ds/oe
lcs/csrp
lcsr/oe
csrp/oe

r=3
ds/lcs/csrp
ds/csrp/oe
lcs/csrp/oe
ds/lcs/oe

r=4
ds/lcs/csrp/oe


In R=3 in excel sheet i just gave example that the out put in column I is not according to R=3. You can see above i have discussed about R.

Thanks for your consistent help and support.

(removed for new version)

According to your attachment a VBA demonstration as a beginner starter
to paste to the top of a module (like the Sheet1 worksheet module) :

PHP Code: 

Dim D$, K&, R&, S$(), V()

Sub Combinate(Optional L& = 1, Optional P& = 1, Optional T$)
    Dim C$
    For P = P To UBound(V) + (K - 1) * (L = 1)
        C = T & V(P, 1)
        If L < K Then Combinate L + 1, P + 1, C & D Else R = R + 1: S(R, 0) = C
    Next
End Sub

Sub Demo1()
        [I1].CurrentRegion.Offset(1).Clear
        K = [E2].Value2
        V = Range("A2", [A1].End(xlDown)).Value2
    If K > UBound(V) Then
        Beep
    Else
        ReDim S(1 To Application.Combin(UBound(V), K), 0)
        D = [E6].Text
        R = 0
        Combinate
        [H1].Value2 = R
        [I2].Resize(R).Value2 = S
    End If
        Erase S, V
End Sub 


► Do you like it ? ► ► So thanks to click on bottom left star icon « ★ Add Reputation » ! ◄ ◄