Loop Help please

[bimo]

hello

is there a more effescient way of doing the below macro ?

I am trying to transpose lines, please see attached file ?

Thank you

Sub TestVariable2()

    Dim i As Integer
    Dim j As Integer
    Dim z As Integer
    
    For i = 0 To 4
        For j = 6 To 10
            For z = 11 To 15
                    
       Cells(i + 1, 1).Value = Range("C1").Value
       Cells(j, 1).Value = Range("C2").Value
       Cells(z, 1).Value = Range("C3").Value
            Next z
        Next j
    Next i