Shifting empty cells

[dantzler]

I am new to macros.
Can some one please help me figure out how to do this?

I need to search all the cells in column one and whenever it finds an empty cell insert 6 blank cells shifting the entire row to the right.

I have tried this several ways and can not get the syntax right.

Thanks for your help

 

[texasalynn]

Welcome to MrExcel board...

try this

Sub FindBlanks()
Dim LR As Long, i As Long
LR = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
    
For i = 2 To LR
    If Cells(i, "D") = "" Then
        Range(Cells(i, 1), Cells(i, 1 + 5)).Insert Shift:=xlToRight
    End If
Next i
End Sub

 

[dantzler]

That worked great.
Not at all how I was trying.
In fact I can not understand this line at all [If Cells(i, "D") = "" Then].
Are you searching for the Character "D" ?

 

[texasalynn]

"D" is column D

 

[dantzler]

Cool.
Thanks.