VBA adding a blank row in column D when values change, only in visible cells - Excel

[Madter]

Hi!
I want my VBA code to insert two blank rows whenever the cell value in column d changes. And since i have used some autofilters, i only want it to do this function on visible cells.
I have this:

[/FONT][/COLOR][COLOR=#242729][FONT=Arial][COLOR=#222222][FONT=Verdana]Dim GCell As Range[/FONT][/COLOR][/FONT][/COLOR]
SearchText = ""
Set GCell = Cells.Find(SearchText).Offset(0)
GCell.EntireRow.Insert
[COLOR=#242729][FONT=Arial][COLOR=#222222][FONT=Verdana]GCell.EntireRow.Insert[/FONT][/COLOR][/FONT][/COLOR]

But it only works if you put in a certain text you want to search for. But here i don't have anything specific to search for. The values in the column are just "random" numbers.

 

[D3allamerican07]

Madter,

This is a convoluted way to do this, but I think it should work. I would create a test copy of your data before stepping through it.

Sub Add_Blank_Cells()

    LR = Range("D" & Rows.Count).End(xlUp).Row
    previousCell = ""

    For Each currentCell In Range("D2:D" & LR).SpecialCells(xlCellTypeVisible)
    
        If currentCell <> "" Then
        
            If currentCell <> previousCell And previousCell <> "" Then
                Rows(currentCell.Row).Insert
                Rows(currentCell.Row).Insert
            End If
        
        End If
        
        previousCell = currentCell.Value
    Next currentCell
  
End Sub

Let me know if you have any questions or if it worked for you.

 

[Madter]

Hi D3allamerican07.
I Will test it, first thing in the morning!
Thanks

 

[Madter]

Hey again D3allamerican07.
It worked perfectly!
Thanks a lot again!