Insert row where cells in column are different but ignore blanks

[somesoldiers]

Hi Guys

Can you advise how I can amend the below code so it will not add any rows where a cell in column F is blank please?

Sub InsRow()
Dim LastRow As Long
Dim i As Long
With ActiveSheet
LastRow = .Cells(.Rows.Count, "F").End(xlUp).Row
For i = LastRow To 2 Step -1
If .Cells(i, "F").Value <> .Cells(i - 1, "F").Value Then
.Rows(i).Insert
End If
Next
End With
End Sub

 

[somesoldiers]

or better still amend to "if column F is different OR column G is different" insert a new row- this will save running the macro twice and just changing the column

 

[somesoldiers]

bump- thanks

 

[mirabeau]

bump- thanks

Sub InsRow()
Dim LastRow As Long
Dim i As Long
Dim a As Range 'just to save writing .cells a number of times
With ActiveSheet
Set a = .Cells
LastRow = a(.Rows.Count, "F").End(xlUp).Row
For i = LastRow To 2 Step -1
If (a(i, "F").Value <> a(i - 1, "F").Value) _
    * (a(i, "F") <> "") * (a(i - 1, "F") <> "") Then .Rows(i).Insert
Next
End With
End Sub

 

[somesoldiers]

perfect- thanks

 

[mirabeau]

perfect- thanks

You're very welcome.