Sub AddBlankRows_ColumnA() 'How to automatically insert a blank row after a group of data ' Dim iRow As Integer, iCol As Integer Dim oRng As Range Set oRng = Range("D1") ' Column to review for group of data 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