Do more with
Sub addrow()
Dim thisrow As Long
For thisrow = ActiveSheet.Cells(Rows.Count, 12).End(xlUp).Row To 2 Step -1
With ActiveSheet.Cells(thisrow, 12)
If .Value <> .Offset(-1, 0) Then
.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
End If
End With
Next
End Sub
Premium Content
You need an Expert Office subscription to comment.Start Free Trial