HASTER.... VBA i Excel

Jeg har flg. kode.:

'"dato"
  Range("A1").Select
  ActiveCell.Offset(5, 0).Rows("1:1").EntireRow.Select
    Selection.Find(What:="dati", After:=ActiveCell, LookIn:= _
        xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
        xlNext, MatchCase:=False).Activate
    ActiveCell.Select
************************************************
    ActiveCell.FormulaR1C1 = "=NOW()"
    Selection.EntireColumn.Hidden = True



Der hvor jeg har mine ************** skal der være en kommando der gør at feltet lige under DATO bliver aktivt.

kan man ikke skrive noget med activecell + 1 eller sådan noget..???