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).Inser
shift:=xlDown

End If
End Sub


My next question to you guys, is how can I get this to drop the activ
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 th
next line after the 5 blank inserts(or whatever qty is in "B25"). I
this possible, if so can you lead me to the answer?

Thank You,
Chri

 

[Nigel]

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

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