How to control cursor with variable input values

**Petrocelli99** · 03-22-2014, 11:36 AM

Hi Guys and Gals,
I was wondering if someone could point out the obvious for me while I still have some hair left.
Within a macro, I am trying to move the cursor down variable amount of rows. I would like to input the value of how many times the cursor should move down into a cell (for example into “D1”).

So as an example, in the following code, I would like to replace the “99” with a variable value in cell D1. I am sure you guys can answer this in your sleep, but I just can’t figure out the formatting for the ActiveCell.Offset command.

Range("A1").Select
ActiveCell.Offset(99, 0).Rows("1:1").EntireRow.Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
ActiveCell.Offset(99, 0).Rows("1:1").EntireRow.Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A1").Select

Any help would be greatly appreciated.

Thank-you for your time,
Pete.

**Jakobshavn** · 03-22-2014, 12:19 PM

????????Once you put 99 in cell D1, the activecell becomes D2, so you want to move the cursor down to D101 ??

**Petrocelli99** · 03-22-2014, 02:01 PM

Thanks for replying Jakobshavn,

I received an answer at another forum, and all I needed to do was use the Range("D1") command instead of "99" to use the value in D1.

My original request may not have been that clear, but I wanted the cursor to move an "x" rows down as specified in cell D1. It works now using the Range(D1) so the code in question looks like this :

ActiveCell.Offset(Range("D1"), 0).Rows("1:1").EntireRow.Select

Thank-you for your time and effort.

Cheers, Pete.