何度も申し訳ありません

期間の日付をA５〜A１００に自動で打ちあがるようにしたいのですが

例えばB１に整数３が入りB２に整数５が入った場合
A５〜A７に３、４、５
と自動で打ちあがるようにしたいです

B2に整数以外が文字などが入る場合は
例えばB1に３B２に英字のKが入った場合
A5に３A６にK
が打ち上がるようにしたいのですが

下記コードだと２回目以降はB１の値が変わっただけでは発火しないので
B2も変更しなければなりません
B1の値が変更されたら即発火させるにはどのようなコードで記述したらいいのでしょうか？

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Address <> "$B$2" And Target.Address <> "$B$1" Then Exit Sub
Range("A5:A100").Clear
Dim cnt As Long
Dim i As Long, j As Long
j = 0
cnt = Target.Value - Target.Offset(-1).Value
For i = 5 To cnt + 5
Cells(i, 1) = Target.Offset(-1).Value + j
Cells(i, 1).NumberFormatLocal = "@"
j = j + 1
Next i
End Sub