Sub 連続番号書き込み()
    Range("A4:A20").ClearContents 
    Range("A4").Value = 4
    Range("A5").Value = 5
    Range("A4:A5").Select
    Selection.AutoFill Destination:=Range("A4:A13"), Type:=xlFillDefault
    Range("A4").Select  
End Sub