insert an empty row

		Microsoft Office Forums > Microsoft Excel > Excel
insert an empty row

FAQ

Thread Tools

Display Modes

08-10-2021, 10:03 AM

Logit

Windows 10 insert an empty row

Office 2007

Expert

Join Date: Jan 2017

Posts: 591

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

« Previous Thread | Next Thread »

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

Other Forums: Access Forums

All times are GMT -7. The time now is 10:18 PM.