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

--
zero63
-----------------------------------------------------------------------
zero635's Profile: http://www.excelforum.com/member.php...fo&userid=2480
View this thread: http://www.excelforum.com/showthread.php?threadid=38819