Clear Cell Contents Based on Criteria

I have column M that holds an if formula for a Yes/No return. If the cell is yes, I want a loop to clear the contents of the cell in the same row, but one column before it (column L). Here is my loop now:

    Range("A16").Select

    Do Until ActiveCell.Offset(0, 1) = ""

        ActiveCell.Range("A1:L1").Select

        If ActiveCell.Offset(0, 12) = "Yes" Then

             Activecell.offset(0,11).clearcontents

        Else: ActiveCell.Offset(1, 0).Select

        End If

    Loop

Any suggestions?