VBA to insert rows

[zombiemaster]

I'm working with Excel 2003.

I need to insert 2 blank rows within a spreadsheet above certain other rows that contains data that starts with a particular text string.

Details:
Column A has office codes in the form of "0301A", "0301B", etc.
Column F will have billing codes that could start with either "L" or "ND" or "NF".

Problem:
I want to separate the L's from the ND's and also the NF's in column F based on which office they are billed to.

End result:
What I want to end up with are two blank rows in between each office code in column A, then another two blank rows between the L's, ND's and NF's.

I'm studying VBA for Excel now but haven't gotten very far yet...I can record macros with the macro recorder and tweak them a little with VBA but I'm not to this level yet. Can anybody give me a hand with this?

Thanks...

-=ZM=-

 

[drsarao]

oops again. didn't test it.

Sub InsRows()
Dim LR As Long, i As Long
LR = Range("B" & Rows.Count).End(xlUp).Row
For i = LR To 9 Step -1 'stop at row 9 itself (2nd row with values)
    With Range("F" & i)
        If .Offset(, -4).Value <> .Offset(-1, -4).Value Then 'non matching B rows
            .Resize(2).EntireRow.Insert
        ElseIf Left(.Value, 1) <> Left(.Offset(-1).Value, 1) Then  'non matching first letter in F
            .Resize(2).EntireRow.Insert
        ElseIf Mid(.Value, 1, 1) = "N" And Mid(.Value, 2, 1) <> Mid(.Offset(-1).Value, 2, 1) Then
            .Resize(2).EntireRow.Insert
        End If
    End With
Next i
End Sub