Insert blank cells into specific columns

[tlc_in_OK]

This should be relatively simple, but I can't seem to do it. . .I need my macro to search down Column K for the first "blank" cell, and then insert blank cells in columns F thru M, shifting all cells down from there (i.e. if the first blank cell in K is K19, then insert blank cells in the range F19:M19 and shift all cells in those columns down). Can someone help me out?

 

[taurean]

Something like:

Public Sub ShiftCellsDown()
Dim lLR As Long
Dim i As Integer
lLR = Range("K" & Rows.Count).End(xlUp).Row
    For i = lLR To 2 Step -1
        If Range("K" & i).Value2 = "" Then
        Range("F" & i & ":" & "M" & i).Insert Shift:=xlDown
        End If
    Next i
End Sub

 

[tlc_in_OK]

Thanks. . .this is similar to what I had tried to do, but it doesn't do anything---never inserts the blank cells. Any ideas?

 

[taurean]

What do you mean it doesn't do anything? I had tested it here and then posted the solution.

Are K blank cells really blank? Check if they contain characters like space etc.

Try to step through the code by using F8 on a smaller sample and see what it is upto.

 

[tlc_in_OK]

Yes, I thought of that, so I deleted everything in any cells below just in case, and still nothing. I also stepped through it, and it doesn't error, it runs through the "if" statement 17 times (the number of cells populated in K) then ends, but never inserts blank cells in the range. I can't figure it out.

 

[taurean]

Can you post a screenshot of the data you are working on?

 

[tlc_in_OK]

Not sure how to post a screenshot here. Basically, columns F thru J are filled with numeric values to about row 34, and there are percentages in column K down to row 18. I need it to insert a section (not an entire row) of blank cells at that point. It just doesn't do it.