Put this into your Commandbutton_Click event handler:
Dim strValueToPrint as String, strOutput as String
Dim intRepeatCount as Integer, i as Integer
strValueToPrint = "1" 'Change this to be the value that you want to repeat
for i = 1 to intRepeatCount
strOutput = strOutput & strValueToPrint & ","
Next
Activecell.Value = strOutput
5
solved Print the same values for 10 times in active cell with comma separated