Sorry for this easy question, but the months of Access Programming has warped
my mind of the many things I remembered in Excel. If I want to find the word
"Date", what do I need to add to my VB. Thanks!

With ActiveSheet.Range("a1:a50")

Set C = .Find("Date", LookIn:=xlValues)

ActiveCell.EntireRow.FillUp.Select
Selection.Delete shift:=xlUp

Secondly, will the second part of my code delete all the rows above the
"Date" row?