Sub 連続番号書き込み()
    Dim G As Integer
    
    G = Range("B3").End(xlDown).Row
    
    Range("A4:A" & G).ClearContents
    
    Range("A4").Value = 4
    Range("A5").Value = 5

    Range("A4:A5").Select
    Selection.AutoFill Destination:=Range("A4:A" & G), Type:=xlFillDefault
    
    Range("A4").Select
    
End Sub
-----------------------------------------------------------------------------
Sub 連続番号書込み()
Dim G As Integer

G = Range("B3").End(xlDown).Row
Range("A4:A" & G).ClearContents

Range("A4") = 4         '番号の開始セル
Range("B4:E" & Range("B3").End(xlDown).Row).Offset(0, -1).DataSeries Step:=1
End Sub
----------------------------------------------------------------------------
Sub ソート()
Dim G As Integer

G = Range("B3").End(xlDown).Row

Range("A4:B" & G).Sort Key1:=Range("B4"), Order1:=xlAscending, Header:=xlNo
End Sub
-----------------------------------------------------------------------------
Sub 連続動作()    
    Call 連続番号書込み
    Call ソート    
End Sub