Fill Down to a Specified Row

[koamapping]

Hello.
Please help me fill down to a row # specified in another cell or fill down a specified number of cells.

 

[LazyBug]

Hello!
For example:

fill down to a row # specified in another cell

Sub FillDown1()
Dim FirstOfRange As Range, FillRange As Range, FillCount As Long, FirstRow As Long
    Set FirstOfRange = Range("A1")
        FirstRow = FirstOfRange.Row
        FillCount = Range("C1").Value
    If (FillCount < 1) Then MsgBox "Larger number please!": Exit Sub
    Set FillRange = Range("A1:A" & (FirstRow + FillCount))
        FillRange.Range("A2:A" & Range("A1").End(xlDown).Row).ClearContents
        FirstOfRange.AutoFill Destination:=FillRange, Type:=xlFillSeries
End Sub

fill down a specified number of cells

Sub FillDown2()
Dim FirstOfRange As Range, FillRange As Range, LastRow As Long, FirstRow As Long
    Set FirstOfRange = Range("A1")
        FirstRow = FirstOfRange.Row
        LastRow = Application.InputBox("Enter last row # to fill", , , , , , , 1)
    If (LastRow < 2) Then MsgBox "Larger number please!": Exit Sub
    Set FillRange = Range("A1:A" & LastRow)
        FillRange.Range("A2:A" & Range("A1").End(xlDown).Row).ClearContents
        FirstOfRange.AutoFill Destination:=FillRange, Type:=xlFillSeries
End Sub

 

[koamapping]

Hello!
For example:

Sub FillDown1()
Dim FirstOfRange As Range, FillRange As Range, FillCount As Long, FirstRow As Long
    Set FirstOfRange = Range("A1")
        FirstRow = FirstOfRange.Row
        FillCount = Range("C1").Value
    If (FillCount < 1) Then MsgBox "Larger number please!": Exit Sub
    Set FillRange = Range("A1:A" & (FirstRow + FillCount))
        FillRange.Range("A2:A" & Range("A1").End(xlDown).Row).ClearContents
        FirstOfRange.AutoFill Destination:=FillRange, Type:=xlFillSeries
End Sub

Sub FillDown2()
Dim FirstOfRange As Range, FillRange As Range, LastRow As Long, FirstRow As Long
    Set FirstOfRange = Range("A1")
        FirstRow = FirstOfRange.Row
        LastRow = Application.InputBox("Enter last row # to fill", , , , , , , 1)
    If (LastRow < 2) Then MsgBox "Larger number please!": Exit Sub
    Set FillRange = Range("A1:A" & LastRow)
        FillRange.Range("A2:A" & Range("A1").End(xlDown).Row).ClearContents
        FirstOfRange.AutoFill Destination:=FillRange, Type:=xlFillSeries
End Sub

Thank you very much!
I’m excited to give this a try in a few hours.
I appreciate your time.