vba to move right then shift end down

I need the vba code to select the adjacent cell to the
active cell, then to select all cells down. I will need
plot a graph of the selected region which will be 2 cells
by a variable amount of cells long. I have tried to use
send keys:right and shift down without any luck.

THanks