insert rows
 

On reflection I prefer this

Sub InsertRows()
Dim i As Long
mc = "M"
For i = Cells(Rows.Count, mc).End(xlUp).Row To 2 Step -1
If IsNumeric(Cells(i, mc)) Then
Rows(i).Resize(Cells(i, mc).Value).Insert
End If
Next i
End Sub

Mike

"Mike H" wrote:

Hi,

Right click your sheet tab, view code and paste this in and run it

Sub InsertRows()
Dim i As Long, x As Long
mc = "M"
For i = Cells(Rows.Count, mc).End(xlUp).Row To 2 Step -1
If IsNumeric(Cells(i, mc)) Then
For x = 1 To Cells(i, mc).Value
Rows(i).Insert
Next x
End If
Next i
End Sub


Mike

"project manager" wrote:

hi,

I'm trying to write a macro which inserts rows depending on a number in a
cell at the end of the row/information.

Ie. if the number in the cell is 4 insert 4 rows. number = 7, 7 rows.

If needs to sweep through column m looking for numbers and inserting rows
until the it goes blank.

cheers for any advise in advance...