Boa-noite
Acho que esse código deve ser o que precisa.

Private Sub btnExcluir_Click()

Dim plan As Worksheet
Set plan = Sheets("Nome da Planilha")

Dim codigo As Integer

On Error GoTo erro_codigo

codigo = TextBox1

plan.Select

linha = plan.Range("A:A").Find(codigo).Row
plan.Cells(linha, 1).Select

Dim resposta As String 'cria a variável resposta
resposta = MsgBox("Tem certeza que deseja excluir este registro?", vbYesNo, "Exclusão de Registro")

If resposta = vbYes Then ' se a resposta for sim então

'comando para deletar toda a linha
ActiveCell.Rows("1:1").EntireRow.Select
'Selection.ClearContents
Selection.Delete Shift:=xlUp
ActiveCell.Select

Range("A2").Select

TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""

MsgBox ("Registro excluído com sucesso!!!")

Else

ActiveCell.Select

Range("A2").Select

TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""

If TextBox1.Text = "" Then
'MsgBox "Digite um nº de registro para a pesquisa"
Else
'Call ProcuraPersonalizada(TextBox1.Text)
End If

End If

erro_codigo:

TextBox1.Text = ""
TextBox1.SetFocus

End Sub

Att,

Francisco