using find in code

I have a database set up on worksheet "Agents". In this database column A is Agent Name, Coulnm B is id number, column C is commission, etc. The following code will find the name in column A (name only appears once in column A).

 Sub Delete_Agent()
Dim rngFound As Range

With Sheets("agents").Columns("a")
    Set rngFound = .Find("name", lookat:=xlWhole)
    rngFound.Select
    
End With

I have two questions:

1. What code would substitute the name found on sheet "data", Range("G6") for name in the code above?

2. What code would delete the entire row that the name is found in under column A?

Thanks for any help

Max