Insert Blank Rows Into Visable Data Only

[ExcelRoy]

Hi all,

I haver the following code that inserts a blank row into the data when the reference changes in column C

Is there a way for this to work with ONLY visible data (ie there may be hidden data)

Many thanks for any info


Sub AddBlankRows()
'
Dim iRow As Integer, iCol As Integer
Dim oRng As Range

Set oRng = Range("c12")

iRow = oRng.Row
iCol = oRng.Column

Do
'
If Cells(iRow + 1, iCol) <> Cells(iRow, iCol) Then
Cells(iRow + 1, iCol).EntireRow.Insert shift:=xlDown
iRow = iRow + 2
Else
iRow = iRow + 1
End If
'
Loop While Not Cells(iRow, iCol).Text = ""
'
End Sub

 

[Fluff]

Is this what you're after?

Sub AddBlankRows()

    Dim iRow As Long, iCol As Long
'    Dim oRng As Range
    
'    Set oRng = Range("c12")
    
    iRow = 12
    iCol = 3
    
    Do
        If Not Rows(iRow).Hidden And Not Rows(iRow + 1).Hidden Then
            If Cells(iRow + 1, iCol) <> Cells(iRow, iCol) Then
                Cells(iRow + 1, iCol).EntireRow.Insert shift:=xlDown
                iRow = iRow + 2
            Else
                iRow = iRow + 1
            End If
        Else
            iRow = iRow + 1
        End If
    Loop While Not Cells(iRow, iCol).Text = ""

End Sub