Maybe:-

Sub stanceabuse()
Range("A1").Value = Range("A1").Value & "," & Range("B1").Value
End Sub

Mike

"wazcaster" wrote:

How do I make a macro which will input a number into a cell without deleting
the numbers that are already there?