Hello all,
I appreciate everyone who has helped me thus far, you are a great group.
I have the following code that I'm trying to tweak just a bit.
I would like to additionally have the macro search and remove duplicates in Column "F" but exclude the text that says "MCC"
Thanks for any help you can provide.
jolivanes has gotten me this far. POST
Sub Maybe()
Dim lr As Long, lc As Long, i As Long
Dim ar As Range
lr = Range("B" & Rows.Count).End(xlUp).Row
lc = Cells(6, Columns.Count).End(xlToLeft).Column
Application.ScreenUpdating = False
For i = lr + 1 To 6 Step -1
If Cells(i, 2).Value <> Cells(i - 1, 2) Then
Cells(i, 1).EntireRow.Insert
With Range("B" & i)
.Resize(, lc - 1).Interior.Color = vbBlack
.EntireRow.RowHeight = 4
End With
End If
Next i
For Each ar In Range("B7:B" & Cells(Rows.Count, 2).End(xlUp).Row).SpecialCells(2).Areas
If ar.Rows.Count > 1 Then ar.Cells(1).Offset(1).Resize(ar.Rows.Count - 1, 3).ClearContents
Next ar
Application.ScreenUpdating = True
End Sub
Bookmarks