>>502
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo err

'B1B2じゃなければ終了
If Intersect(Target, Range("B1:b2")) Is Nothing Then Exit Sub

'とりあえずクリア
Range("A5:A100").Clear

'メイン。整数じゃなければerrに飛んでコピーして終わり。trycacheみたいな事がしたかった
最初 = Cells(1, 2)
最後 = Cells(2, 2)
'
If (Int(最初) = 最初 And Int(最後) = 最後) Then

行 = 5
For i = 最初 To 最後
Cells(行, 1) = i
行 = 行 + 1
Next

Exit Sub
End If

'整数以外
err:
Range("a5:a6").Value = Range("B1:b2").Value

End Sub