I do this routinely by keeping track of the currentRow while using the
scroll buttons (Worksheet is protected)

I have some custom formatting that I like to keep on screen so if the
currentRow is the last row I simple clear contents instead of deleting
the row. Deleting removes the row and causes my number formatted rows to
decrease by one so sooner or later my screen formatting gets gobbled up.

Sub cmdDelete_Click()


If lCurrentRow = nLastRow Then
Cells(lCurrentRow, 2).EntireRow.ClearContents
Else
Cells(lCurrentRow, 2).EntireRow.Delete
End If

nLastRow = Range("B65536").End(xlUp).Row

Equip_Scroll_SpinUp

Remove focus from <DELEETE> to avoid enter Key

frmEquipment.Equip_List.SetFocus

End Sub

Here is the code  I am currently using for the add  button, plus what
I have so far for the delete  button. I need to fill in the gap for
the find  the TextName.Value in the list  located on the "Resources"
worksheet and delete the name.

-------------------------------
Private Sub cmdAdd_Click()

Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Resources")


'find first empty row in database
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row

'check for a name
If Trim(Me.TextName.Value) = "" Then
Me.TextName.SetFocus
MsgBox "Please enter a name"
Exit Sub
End If

'copy the data to the database
ws.Cells(iRow, 1).Value = Me.TextName.Value


'clear the data
Me.TextName.Value = ""


End Sub


Private Sub CmdDel_Click()
Dim smessage As String
Dim ws As Worksheet
Set ws = Worksheets("Resources")

smessage = "Are you sure you want to delete " + TextName.Text
+ "?"
If MsgBox(smessage, vbQuestion + vbYesNo, _
"Confirm Delete") = vbYes Then


End If

End Sub

Looks like all you need is to use the Find method - something like this
(not verified). FIND is Very powerful - I usually use function that
receives the sheet  and string as parameters but it is not necessary.

With ws 'Your Worksheet where the row will be deleted

Set rFind = Columns(2).Find(What:= TextName.Text,
LookIn:=xlValues, _ LookAt:=xlWhole, SearchOrder:=xlByRows,
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)

' delete  Selected ROW from Worksheet

rFind.Row.EntireRow.Delete

end with