Ayuda con Macros en Excel

Hola a Todos, a ver si me puede ayudar, estoy haciendo una macro, que:

1.- busque un numero en una columna y si el numero que verifique ahora en la columna "D" si ya hay una fecha escrita, si la hay debe marcar error, si no hay debe de escribirla, si no aparece el numero en la columna debe marcar un error diciendo que el numero no esta, ya hice esto, pero no puedo avanzar de ahí

Private Sub cmdAceptar2_Click()'

On Error GoTo lineaerror
Range("A1").Activate[a1:a1010].Find(What:=txtBusqueda, After:=ActiveCell, MatchCase:= _False).

ActivateActiveCell.Offset(0, 2).Select

ActiveCell.FormulaR1C1 = Date
Exit Sub

lineaerror:

MsgBox "Etiqueta no Registrada"

End Sub