Hey ,

try this code

Sub Selectandpaste()
Range("B1:D1").Select

Selection.Copy
Range("a1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, 1).Select
Range(Selection, Range("B1")).Select
Selection.PasteSpecial

End Sub



On Aug 20, 6:15*am, "kittronald" wrote:
* * I'm trying to create a macro that will do the following:

* * * * 1) Goto B1

* * * * 2) Using the variable number value stored in A1 (i.e., 10), select
B1 and the next nine adjacent cells to the right - creating a range of 10
selected cells (B1:B10).

* * The goal is to select an X number of cells from a known starting point.

* * Any ideas ?

- Ronald K.