High all, can anyone tell me the code to select and copy the current cell, plus the 3 cells to the immediate right?

I've tried with things like 
ActiveCell.Offset(0, -3).Select
but i don;t quite have it right