Sub Macro1()
Set a = Range("C" & Rows.Count).End(xlUp).Offset(-2, 0)
Set b = Range("C" & Rows.Count).End(xlUp)
d = Cells.Find("*", , , , xlByRows, xlPrevious).Row
Range(a, b).Select
Selection.Copy
Selection.AutoFill Destination:=Range(a, "C" & d), Type:=xlFillDefault
Range("A1").Select
End Sub