Hey all.

Been searching around this forum and others for hours to try and fix a little formula, but as it's my first day ever looking at them I'm a bit confused.

I got this formula from another thread 


Option Explicit

Sub InsertBlanks()
Dim LR As Long, Rw As Long

    LR = Range("A" & Rows.Count).End(xlUp).Row
    
    For Rw = LR To 2 Step -1
        If Range("A" & Rw) <> Range("A" & Rw - 1) Then
            Rows(Rw).Insert xlShiftDown
            Rw = Rw - 1
        End If
    Next Rw

End Sub
which is basically bang on except I want to add another If condition and change it from pasting in one row to two. I want to have the macro such that if, for example, the company name or the currency type changes, then two rows are added below it. So to turn it from this:

Heading 1 Heading 2
Company 1 USD
Company 1 USD
Company 1 GBP
Company 2 USD
Company 2 CAD
Company 2 EUR

to this

Heading 1 Heading 2
Company 1 USD
Company 1 USD


Company 1 GBP


Company 2 USD


Company 2 CAD


Company 2 EUR

Make sense? I appreciate the help!