Copy Down Data Until end of range

[chrono2483]

Hello,

My goal is to be able to copy down data until the end of the range. The range can vary, based on the size of the raw data pasted. Running the following script works to copy down the data (not the prettiest, but it looks to work), however because it doesn't know when to end, it errors out. Is there a way to tell it to loop until the last row in the range?

'Copy Down Month
Range("A1").Select
Selection.End(xlDown).Select
 Range(Selection, Selection.End(xlDown)).Select
 Selection.SpecialCells(xlCellTypeBlanks).Select
   Selection.FormulaR1C1 = "=R[-1]C"
   Selection.End(xlDown).Select
   Range("A1").Select
Selection.End(xlDown).Select
 Range(Selection, Selection.End(xlDown)).Select
 Selection.SpecialCells(xlCellTypeBlanks).Select
   Selection.FormulaR1C1 = "=R[-1]C"
   Selection.End(xlDown).Select
   Range("A1").Select
Selection.End(xlDown).Select
 Range(Selection, Selection.End(xlDown)).Select
 Selection.SpecialCells(xlCellTypeBlanks).Select
   Selection.FormulaR1C1 = "=R[-1]C"
   Selection.End(xlDown).Select

Thank you.

 

[MARK858]

My goal is to be able to copy down data until the end of the range.

When you make statements like the above you really need to explain what your data looks like.
Anyway a guess...

Sub FillCell2()
Dim lr As Long
lr = Cells.Find("*", , xlValues, xlPart, xlByRows, xlPrevious).Row
    With Range("A2:A" & lr)
        .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
        .Value = .Value
    End With
End Sub