kopier celler

Jeg sidder og roder med at lave en makro der kopier/ laver en serie til højre, med det antal der bliver indtastet, men hvordan får jeg udskiftet C1 med brugerdata

Sub fyld_til_føjre()
'
' fyld_til_højre Makro
'
' Genvejstast:Ctrl+q
'
Dim brugerdata As String
brugerdata = InputBox("hvor mange celler")
    Selection.AutoFill Destination:=ActiveCell.Range("A1:C1"), Type:=xlFillDefault
    ActiveCell.Range("A1:C1").Select
   
End Sub