Code:
Sub RepeatValue()

    Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row).ClearContents
    Range("A2").Resize(Range("B2").Value).Value = Range("C2").Value
    
End Sub