VBA: If 2 cells in Row are yellow Delete last

I need to add a part to my macro. I need it to go through each row and if there are two yellow filled cells next to each other, then delete the second. The yellow is .color = 10092543. How can I do this in VBA. Thanks for help.

Maybe:

Sub mattress58y()
Dim i As Long
Application.ScreenUpdating = False
For i = ActiveSheet.UsedRange.Rows.count + 1 To 2 Step -1
    For Each cell In Range(Cells(i, 1), Cells(i, ActiveSheet.UsedRange.Columns.count + 1))
        If cell.Interior.Color = 10092543 And cell.Offset(, 1).Interior.Color = 10092543 Then
            cell.Offset(, 1).Clear
        End If
    Next cell
Next i
Application.ScreenUpdating = True
End Sub

YOU ARE THE MAN!!!! That worked!!!! Thanks

You're welcome. Glad to help out and thanks for the feedback. Please comply with Forum Rule No. 9.

9. Acknowledge the responses you receive, good or bad. If your problem is solved, please say so clearly, and mark your thread as Solved: Click Thread Tools above your first post, select "Mark your thread as Solved". Or click the Edit button on your first post in the thread, Click Go Advanced, select [SOLVED] from the Prefix dropdown, then click Save Changes. If more than two days have elapsed, the Dropdown option or Edit button will not appear -- ask a moderator to mark it.