Need Help With Active Cell

[zero635]

Ok, I have done the following coding and it works very well.

Sub PltfrmWs()
Range("B25").Activate
If Range("B25") = 0 Then
Range("A24:G29").Delete
Else
Range("A26:G26").Resize(Range("B25").Value).Insert shift:=xlDown

End If
End Sub


My next question to you guys, is how can I get this to drop the active cell down past whatever number is in "B25". Lets say "B25" is qty 5. I need this to move down from "B25"(Currently the active cell) to the next line after the 5 blank inserts(or whatever qty is in "B25"). Is this possible, if so can you lead me to the answer?

Thank You,
Chris

[Nigel]

Try placing this after the insert command......

ActiveCell.Offset(ActiveCell.Value + 1, 0).Activate


--
Cheers
Nigel



"zero635" <[email protected]> wrote in
message news:[email protected]...
>
> Ok, I have done the following coding and it works very well.
>
> Sub PltfrmWs()
> Range("B25").Activate
> If Range("B25") = 0 Then
> Range("A24:G29").Delete
> Else
> Range("A26:G26").Resize(Range("B25").Value).Insert
> shift:=xlDown
>
> End If
> End Sub
>
>
> My next question to you guys, is how can I get this to drop the active
> cell down past whatever number is in "B25". Lets say "B25" is qty 5.
> I need this to move down from "B25"(Currently the active cell) to the
> next line after the 5 blank inserts(or whatever qty is in "B25"). Is
> this possible, if so can you lead me to the answer?
>
> Thank You,
> Chris
>
>
> --
> zero635
> ------------------------------------------------------------------------
> zero635's Profile:
http://www.excelforum.com/member.php...o&userid=24802
> View this thread: http://www.excelforum.com/showthread...hreadid=388195
>