Change cell A1 and move to cell A2 and change it

 
     Sub MyMacro()
         Range("A1").Value = "This is A1"
         Range("A2").Select
         ActiveCell.Value = "This is A2"
     End Sub

1.	Reset value in a range to zero
2.	Sum the range
3.	Return cell value in a range as an array
4.	Clear NonDate Cells
5.	Transferring one-dimensional arrays with build-in function

Change cell A1 and move to cell A2 and change it : Range Value « Excel « VBA / Excel / Access / Word