Sub IncrCell()
Dim A as Integer 	// Variable declaration
A = 1					// Giving Variable A the Value 1

Range("A1").Value = Range("A1").Value + A  // This will Increase Cell A1 by "A"

End Sub