insert rows
 

Ok, A1 is empty and B:1:G1 is filled with data. A2:G2 is
filled with data. In plain English, this is what I want to
do. If the cell on top of the cell that is filled with
data is empty, it will insert 2 rows on top. I just have
several data that I need to insert rows inbetween
particular item.
A B C D E
1 M012 Martin Computer 90
2 Math 75
3 History 65
4 Science 100
6 E013 Earn Go Computer 100
7 Math 93
8 History 70
9 Science 85


I want to insert 2 rows in between 4 and 6 automatically..
thanks

insert rows
 

This should help you
--------------------------------------------------------------------------
Sub insert2rows()
Dim cel As Range
Range("A65536").End(xlUp).Select
Do While Selection.Address < "$A$2"
If Selection.Value < "" And Selection.Offset(-1, 0).Value = "" Then
Selection.EntireRow.Insert
Selection.EntireRow.Insert
End If
Selection.Offset(-1, 0).Select
Loop
End Sub
--------------------------------------------------------------------------

There can be better ways of doing this, but this is the first thing i
thought after seeing your mail.

HTH

~Yogendra

boogie wrote:
Ok, A1 is empty and B:1:G1 is filled with data. A2:G2 is
filled with data. In plain English, this is what I want to
do. If the cell on top of the cell that is filled with
data is empty, it will insert 2 rows on top. I just have
several data that I need to insert rows inbetween
particular item.
A B C D E
1 M012 Martin Computer 90
2 Math 75
3 History 65
4 Science 100
6 E013 Earn Go Computer 100
7 Math 93
8 History 70
9 Science 85


I want to insert 2 rows in between 4 and 6 automatically..
thanks