How to use loop to extract numbers

[GIS2013]

Please see attached samlpe file.
I need to "extract" the numbers in range a1:a5, in a way that if a1=2, then vba write in column c, the value 2 twice, and if a2=4, then vba write in column c the value 4, four times etc.
Thanks

[jolivanes]

Sub Maybe()
Dim i As Long
    For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        Cells(Rows.Count, 3).End(xlUp).Offset(1).Resize(Cells(i, 1)).Value = Cells(i, 1).Value
    Next i
    Cells(1, 3).Delete Shift:=xlUp
End Sub

[GIS2013]

Thank you very much! :-)

[jolivanes]

Thanks for letting us know and Good Luck