Macro buscar valor y eliminar fila

[fernan2k8]

Buenos días a todos, os pido ayuda porque estoy atascado en esta macro.
Tengo una celda D11 donde introduzco un valor numérico(nº cliente) y una base de datos en la misma hoja con todos los clientes ordenados por su nº.
La macro que estoy diseñando consiste en borrar la fila que contenga el nº de cliente que pongo en la celda D11.

EL problema es que si busco el cliente 1 me borra todos los clientes que contengan un 1 (el 11, el 111,...)

Sub eliminar_cliente()
'
' eliminar_cliente Macro
'

'
Dim Borrar As Boolean
Borrar = False
valor_buscado = Range("D11")
On Local Error Resume Next
If IsNumeric(valor_buscado) Then
Do While Err.Number = 0
Columns("G").Select
Selection.Find(What:=valor_buscado, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False) = Activate
If Err.Number = 0 Then
ActiveCell.Select
Selection.EntireRow.ClearContents
Borrar = True
End If
Loop
Range("d11").Select
If Borrar = True Then
MsgBox "Valores encontrados y borrados", vbInformation, "Borrados"
Else
MsgBox "Valor no encontrado.", vbExclamation, "No encontrado"
End If
Else
MsgBox ("Valor no válido")
End If
End Sub

Espero que me podais ayudar.
Muchas gracias!!