Dim RowCount As Long
    RowCount = Range("B1").CurrentRegion.Rows.Count
    Selection.AutoFill Destination:=Range("C3:C" & RowCount)