Add a Row Every Fourth Row

's Computer Specifications

After I delete all blank rowes I want to add a blank row every 5th row.

's Computer Specifications

For how far

For i = LastRow to 1 Step -4

Rows(i).Insert
Next i

--
__________________________________
HTH

Bob

"daphoenix" <(E-Mail Removed)> wrote in message
news:43202D0F-BB81-4E3D-852A-(E-Mail Removed)...
> After I delete all blank rowes I want to add a blank row every 5th row.

's Computer Specifications

for like a 100 rows

"Bob Phillips" wrote:

> For how far
>
> For i = LastRow to 1 Step -4
>
> Rows(i).Insert
> Next i
>
> --
> __________________________________
> HTH
>
> Bob
>
> "daphoenix" <(E-Mail Removed)> wrote in message
> news:43202D0F-BB81-4E3D-852A-(E-Mail Removed)...
> > After I delete all blank rowes I want to add a blank row every 5th row.
>
>
>

's Computer Specifications

Replace LastRow with 100 then.

--
__________________________________
HTH

Bob

"daphoenix" <(E-Mail Removed)> wrote in message
news:2F6E0AAA-F9DE-401F-92F5-(E-Mail Removed)...
> for like a 100 rows
>
>
> "Bob Phillips" wrote:
>
>> For how far
>>
>> For i = LastRow to 1 Step -4
>>
>> Rows(i).Insert
>> Next i
>>
>> --
>> __________________________________
>> HTH
>>
>> Bob
>>
>> "daphoenix" <(E-Mail Removed)> wrote in message
>> news:43202D0F-BB81-4E3D-852A-(E-Mail Removed)...
>> > After I delete all blank rowes I want to add a blank row every 5th row.
>>
>>
>>

Thread Tools
Show Printable Version Email this Page
Rate This Thread
Rate This Thread:

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
every fourth weekday?	Lyn	Microsoft Outlook Calendar	2	19th May 2009 06:31 PM
Fourth Time Asking This	Vicki_g	Windows Vista General Discussion	1	1st Apr 2009 12:55 AM
The fourth conditional format	Barney	Microsoft Excel Discussion	8	27th Sep 2008 12:36 AM
MARK EVERY FOURTH ROW	lehigh46	Microsoft Excel Worksheet Functions	3	3rd Jun 2005 03:59 PM
Happy Fourth of July	PuppyKatt	Freeware	10	6th Jul 2004 12:36 PM