マクロ

選択されたセルに「日付」を入れ、その右側のセルに「OK」と入れ、カーソルを４つ下に移動する

ActiveCell.FormulaR1C1 = "10/25/2008"
Cells(ActiveCell.Row, ActiveCell.Column + 3).Value = "OK"
Cells(ActiveCell.Row + 4, ActiveCell.Column).Select