VBA to create duplicate rows in new sheet.

[xlnc]

Hello Experts,

I am trying to create duplicate values a n number of times from a source sheet- 'Sheet1'
In sheet 2 the data should be as per the file attached. Can anyone help improvise the code or help me with a new code ?

Sub createdups()
    Dim lr As Long
    lr = ThisWorkbook.Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row
    For i = 2 To lr
        Do
            Sheets("Sheet1").EntireRow.Copy Destination:=Sheets("sheet2").Cells(i + 1, "A")
            i = i + 1
        Loop Until i = 26
    Next
End Sub

Also I have attached a file for better understanding. Need urgent help please!

Thanks.