for my work

    先得到一个范围的最大值，然后以此最大值为变量自动升序填充单元格  

   Dim i As Integer
    Worksheets(3).Activate
    i = Application.Max(Range(Cells(1, 1), Cells(16, 1)))
    Set SourceRange = Worksheets("Sheet3").Range(Cells(3, 5), Cells(4, 5))
    Set fillRange = Worksheets("Sheet3").Range(Cells(3, 5), Cells(i, 5))
    Worksheets(3).Cells(3, 5) = 1
    Worksheets(3).Cells(4, 5) = 2
    SourceRange.AutoFill Destination:=fillRange