Help with Recursive VBA

Try this:

Sub CopyXTimes()
Dim X As Long, i As Long

X = Application.InputBox("Copy A1 how many times?", "Repeat", 100, Type:=1)
If X = 0 Then Exit Sub

    For i = 1 To X
        Range("AO1").Offset(i).Value = Range("A1").Value
    Next i

End Sub