I think that what you need is the Offset method for the range and cells
objects.
You could use the Offset to specify how many rows and cells from a reference
you want get/set values.

cellls(1, 1).Offset(0, 1).value = 4 - One to right from A1 (Sets B2 = 4)
cellls(1, 1).Offset(1, 1).value = 4 - One to right and one down from A1
(Sets B2 = 4)

Using minus (-) on offset values, you specify positions to left and up.