Olá fórum sou leigo no vba excel e eu trabalho no ramo dos bordados, e para administrar a produção do mesmo preciso usar o excel, porem estou quebrando a cabeça com um código lazarento, na aba estoque tenho um formulario onde tem um botão de excluir registro de produto, o que eu quero que ele faça é, procurar o produto selecionado ir ao banco de dado que fica na guia BD e exclua exatamente aquelas linha onde o registro se encontra, até ai eu consegui fazer, os registro ocupa as colunas A:G e quando excluo ele exclui a linha inteira, como fazer que ele apague somente as linhas da coluna A:G vou anexar ela pra vocês verem. por favor me ajudem.

esse é o código do botão excluir!

Private Sub bt_excluir_estoque_Click()
Dim certeza As Integer

Set w = Sheets("BD").Columns("A:G").Find(Range("D5").Value, lookat:=xlWhole)

If (Range("Estoque!D5")) = "" Then
MsgBox "Selecione um produto", vbExclamation, "Estoque"
Range("D5").Select
Exit Sub
End If

If (Range("Estoque!D7")) = "" Then
MsgBox "Produto não informado", vbExclamation, "Estoque"
Range("D7").Select
Exit Sub
End If

certeza = MsgBox("Realmente deseja excluir o produto? " + CStr(w.Offset(0, 1)), vbYesNo + vbQuestion, "Estoque")

If certeza = vbYes Then

w.EntireRow.Delete

End If

If certeza = vbYes Then

Range("I16:I18").Select
Selection.ClearContents
Range("I11:I13").Select
Selection.ClearContents
Range("D5:F5").Select
Selection.ClearContents
Range("D7:I7").Select
Selection.ClearContents
Range("D9:F9").Select
Selection.ClearContents
Range("D11:F11").Select
Selection.ClearContents
Range("D13:E13").Select
Selection.ClearContents
Range("D5:F5").Select
MsgBox "Produto excluido com sucesso!", vbInformation, "Estoque"
End If

End Sub