Copy range and paste using inputbox

hello
i m using below code to copy certain data(Range("C4:R46")) and paste after certain row(After 43 rows) with 50 times

i want to popup a inputbox who asked for how many time u want to paste data, if i choose 4 then
paste data after certain row(After 43 rows) with 4 times

if i choose 14 then
paste data after certain row(After 43 rows) with 14 times

Sub Macro4()
Dim i, j
i = 47
For j = 1 To 50
    Range("C4:R46").Copy
    Range("C" & i).PasteSpecial Paste:=xlPasteAll
    i = i + 43

Next j
    
End Sub

thanx alot