FInd value and insert rows below

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

vlad - 20 Sep 2007 11:08 GMT

I have numbers in column A from 1,2,3,4,5,..etc.
I need a macro that will find a number for example "3" and insert 4 rows
under the row that has the number "3" in column A.
Any help will be appreciated.
Thanks

Reply to this Message

Mike H - 20 Sep 2007 11:22 GMT

Right click sheet tab, view code and paste this in:-

Sub atomic()
For x = Range("A65536").End(xlUp).Row To 1 Step -1
If Cells(x, 1).Value = 3 Then
Cells(x + 1, 1).Select
For y = 1 To 4
Selection.EntireRow.Insert
Next
End If
Next
End Sub

Mike

> I have numbers in column A from 1,2,3,4,5,..etc.
> I need a macro that will find a number for example "3" and insert 4 rows
> under the row that has the number "3" in column A.
> Any help will be appreciated.
> Thanks

Reply to this Message