Public Sub E8_FillFormula(rng As Range, Optional c = "A")
    '将rng往下填充公式到有效区最大行
    Dim r, n
    n = rng.Worksheet.Cells(ActiveSheet.Rows.Count, c).End(xlUp).Row
    If n = 2 Then Exit Sub
    
    For Each r In rng
        r.Resize(n - r.Row + 1).FillDown
    Next
End Sub