5. Employees

Sub Live_Employees()
    Range("E2").Formula = "=D2*22.4%"
    Range("E2").AutoFill Range("E2:E21")

    Range("F2").Formula = "=D2-E2"
    Range("F2").AutoFill Range("F2:F21")

    Range("G2").Formula = "=D2*18.9%"
    Range("G2").AutoFill Range("G2:G21")

    Range("H2").Formula = "=D2+G2"
    Range("H2").AutoFill Range("H2:H21")

    Range("J2").Formula = "=DATEDIF(I2,TODAY(),""y"")"
    Range("J2").AutoFill Range("J2:J21")

    Range("D23").Formula = "=MIN(D2:D21)"
    Range("D24").Formula = "=MAX(D2:D21)"
    Range("D25").Formula = "=AVERAGE(D2:D21)"
End Sub