Trouble matching statements in VBA

Hey all,
I am working on a macro that I can't seem to get to work, seems like something very basic, but I keep getting errors that my End With doesn't have a With, but it does. I read that it can happen because of an unended If statement within the With, but my if statement is matched. Here is that section of code:

With ThisWorkbook.Worksheets("Full Contact List")
Do Until IsEmpty(Worksheets("Full Contact List").Range("A" & x))
    If Worksheets("Full Contact List").Range("A" & x).Value = Contact Then
            Worksheets("Contact Info Sheet").Range("B" & 2) = Worksheets("Full Contact Sheet").Range("B" & x).Value
            x = x + 1
    Else
            x = x + 1
    End If
End With

I see no problem, but I am a rookie and obviously there is one. Anyone see what I'm doing wrong?