Insert blank row if condition met

[FROGGER24]

As part of a macro I need to insert a blank row between the text of "L" and "D" looking in column "I" (variable length). The user wants to seperate all the "L" from all the "D" rows by have a blank row between the two.

 

[Rhino373]

I'm not sure I completely follow. Take a look at this. This assumes there is no header row. Column "I" looks like this:

L
D
D
L
D

Function InsertRows()
FindLastRow = Range("I100000").End(xlUp).Row
For x = FindLastRow To 2 Step -1
    TempValue = Range("I" & x - 1).Value
    If Range("I" & x).Value <> TempValue Then
        Rows(x & ":" & x).Select
        Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    End If
Next
End Function

The code would result in this:

L

D
D

L

D

 

[FROGGER24]

Thanks for the reply, the data will be sorted with all of the rows with a "D" at the top. I need to insert one row between the last d and the the first "L"

 

[Rhino373]

So this function would handle this. It would take

D
D
L
L

and make it

D
D

L
L

The question is in cell "I" is there only a single character "D" and "L" or are you referring to words starting with "D" or "L" like

David
Doug
Larry
Lisa

 

[FROGGER24]

Rhino, your code worked great, I was having a senior moment and forgot to sort my data...
thank you for your help