更新日付を自動で入れるマクロ - EXCEL

例えば、B列に以下テスト画面のようにa,b,c,dと入れたら、自動で「日付」と先頭に書かれた列に更新日付を入れたい。

コードは下記。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row <> 1 Then '①
 Dim ret As Variant
 Set myApp = New Excel.Application
 ret = myApp.WorksheetFunction.Match("日付", Range("1:1"), 0) '②
 If Target.Column <> ret Then '③
 Cells(Target.Row, ret) = Date
 End If
End If
End Sub

① 先頭行の更新は無視
② 先頭行で”日付”を探し位置(列数)を返す
③ 先頭行に”日付”が見つかった列の更新は無視

以上