Right, that makes sense, but how do I select the blank spaces first? :) I
know I'm too demanding.... Thanks!!!

"Don Guillett" wrote:

IF?? I understand your question

ActiveCell.offset(-1).Resize(30 - Range("a1")).EntireRow.Insert
--
Don Guillett
SalesAid Software

"bodhisatvaofboogie" wrote in
message ...
How do I get it to select the cells right above the blank ones? Thanks!!!

"Don Guillett" wrote:

something like

Sub insertrowssize()
ActiveCell.Resize(30 - Range("a1")).EntireRow.Insert
End Sub
--
Don Guillett
SalesAid Software

"bodhisatvaofboogie" wrote
in
message ...
Okay, I'm trying to do something very strange, but I have to find a way
to
get all the data in an orderly fashion. I want to do the following:

Seek the blank rows and select each cell one up from the blanks. For
each
selection(essentially the last row of each set of data separated by a
blank
row),

IF (Cell = 2) Then
Insert 28 rows

IF (Cell = 3) Then
Insert 27 rows

IF (Cell = 4) Then
Insert 26 rows

ETC.ETC....

That would make each grouping of data have the exact same amount of
rows,
which is what I NEED to continue with my project. Need more
clarification,
please ask. THANKS!!!!!!