Adapt as required.

Sub reset()

    Range("A10:C10").Value = 1
    
    'or for individual values
    
    'Range("A10").Value = 1
    'Range("B10").Value = 2
    'Range("C10").Value = 3
    
End Sub