Delete The Rows Until It Meets A Cell With The Word "Date"

I am trying to make a simple program that will go down column A deleting the rows until it meets a cell with the word "Date" in the A column. When it has found that row I want it to delete that row also and then stop.

This is what I have so far

Sub FindAndDelete()

Dim row As Integer
Dim col As Integer

ActiveSheet.Range("a1").Select

If Range("a1") "date" Then Rows("1:1").Select
Selection.Delete
End Sub

I tried defining row =1
col = 1

and then going if range ("rowcol") but no joy.