Change the Value property for a range of any size: statement enters the number 123 into each cell in a range
Sub changeMain() Worksheets("Sheet1").range("A1:C3").value = 123 End Sub