Loop with two statements

[elmnas]

Hello everyone!

I have got a excel file that looks the one below:

Now I need a loop that check each cell in Column "H", if there is two cells in column "H" that matches each other (in this case Cell 1 and Cell 6).
Check in Column "i" if there is any data in any of these cells, remove the cell that have no data in Column "i".See result result below:

Could someone help me with this?

Thank you in advance

 

[shreif]

try this

Sub ShreifOct25()

    Dim rng As Range
    Dim i As Long, x As Long
    i = Range("H" & Rows.Count).End(xlUp).Row
    Set rng = Range("h1", Range("h" & Rows.Count).End(xlUp))
    For x = i To 1 Step -1
        If Application.WorksheetFunction.CountIf(rng, Cells(x, 8)) > 1 And Cells(x, 9) = "" Then
            Cells(x, 8).Delete Shift:=xlUp
        End If
    Next x

End Sub