insert an empty row

yacov · #1 08-10-2021, 08:07 AM

Hi
How to insert an empty row every 100 rows? The file contains 24000 rows in two columns.

thanks.
Yacov

Logit · #2 08-10-2021, 10:03 AM

This code uses Col A as a means to track where to insert a blank row.

Code:

Option Explicit

Sub InsertBlankRows()
Dim lr As Long, r As Long

On Error Resume Next

Application.ScreenUpdating = False

    For r = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -100
        If Range("A" & r) <> "" And Range("A" & r - 100) <> "" Then Rows(r).Insert (1)
    Next r
    
Application.ScreenUpdating = True

End Sub

yacov · #3 08-10-2021, 11:27 AM

thanks. works great

Logit · #4 08-10-2021, 01:26 PM

You are welcome.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
If a2 is not empty, color empty cells in b2:af2	turkanet	Excel	2	08-20-2017 11:00 PM
Picture content control -> insert picture -> empty?	Jaymond Flurrie	Word	3	07-13-2016 07:00 AM
How do I insert pictures directly into picture boxes by clicking the box instead of using INSERT>PIC	Bree	Word	1	06-24-2016 10:32 PM
automatic insert hypens until the end of the row and in empty rows between paragraphs	Ivica	Word	3	12-28-2015 01:31 PM
Apparently empty (blank) cells aren't empty	daymaker	Excel	3	03-08-2012 03:41 PM