Find user input and clear specific cells

[Excel Ent]

Hello
I have a small project i'm trying to complete. What I am looking to do is the following:
1.) User enters the associate to remove from the list
2.) macro finds user in A and clears cells B,C,D,E,F. I need the range to stop at F because there are instructions in cells I,J,K so entirerow.delete will not work.

 

[Clarkwr3]

This should work

Option Compare Text

Sub Remove_Employee()
'
    Dim Employee As Range
    Dim L As Long
        Sheets("Sheet1").Select
        L = ActiveSheet.Range("A1").End(xlDown).Row
        Set Employee = ActiveSheet.Range("A1:A" & L)
'
    Dim InBx As Variant
        InBx = Application.InputBox("Please enter the associate you want to remove")
'
    Dim i As Long
        i = Application.WorksheetFunction.Match(InBx, Employee, 0)
'
    Rows(i).EntireRow.Delete
'
End Sub

 

[Clarkwr3]

This should work

Option Compare Text

Sub Remove_Employee()
'
    Dim Employee As Range
    Dim L As Long
        Sheets("Sheet1").Select
        L = ActiveSheet.Range("A1").End(xlDown).Row
        Set Employee = ActiveSheet.Range("A1:A" & L)
'
    Dim InBx As Variant
        InBx = Application.InputBox("Please enter the associate you want to remove")
'
    Dim i As Long
        i = Application.WorksheetFunction.Match(InBx, Employee, 0)
'
    Rows(i).EntireRow.Delete
'
End Sub

Missed the entirerow.delete part

instead use Range(Cells(i, 1), Cells(i, 6)).delete Shift:=xlUP

 

[Excel Ent]

thanks for the quick response. Really appreciate it. When I run the code I get a runtime error 1004 on the following line
Set Employee = ActiveSheet.Range("A1:A" & M")

 

[Excel Ent]

Nevermind….I see the errors of my ways. Your are a gem... thanks for your time.