VBAで行き詰まっています…

VBAの質問です。
B行に入力があるとA行に日付が入り、それに加えてC行に入力があるとD行に関数を出てくるようにしたいです。

下のVBAだとselect caseと最初のcaseの間のステートメントが適切でないとエラーがでます。どう修正すれば良いのかわかりません。 ご教授お願いします。

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .CountLarge > 1 Then End
Select Case .Column
Case 2
If .Value <> "" Then
.Offset(, -1) = Date
Else
.Offset(, -1).ClearContents
End If
Case 3
If .Value <> "" Then
.Offset(, 1) = "=""数式"""
Else
.Offset(, 1).ClearContents
End If
End Select
End With
End Sub

No.1 ベストアンサー 回答者： nicotinism 回答日時： 2015/03/26 15:51

質問文では、Case 2

画像では、Case2 になってませんか？（半角スペースの有無）
休憩して気分転換が必要かも。