if cell contain value, then clear range

I post the relevant part of the code that i am adding to a current macro:

    If Not IsEmpty(i, "A") = "" And IsEmpty(i, "B") Then
        Cells(i, "A").ClearContents

if columnA has value, but columnB does not have value (empty) or IsBlank, then clear columnA
starting from A8 to A49.