Xin cách để đưa công thức vào VBA

[kimtanmap]

Em đang có một công thức:
Công thức này có thể tính được số lượng Nam, Nữ khi lọc dữ liệu

=SUMPRODUCT(SUBTOTAL(3;OFFSET('Danh Sach'!$E$7:$E$10000;ROW('Danh Sach'!$E$7:$E$10000)-MIN(ROW('Danh Sach'!$E$7:$E$10000));;1));ISNUMBER(SEARCH("Nam";'Danh Sach'!$E$7:$E$10000))+0)

=SUMPRODUCT(SUBTOTAL(3;OFFSET('Danh Sach'!$E$7:$E$10000;ROW('Danh Sach'!$E$7:$E$10000)-MIN(ROW('Danh Sach'!$E$7:$E$10000));;1));ISNUMBER(SEARCH("Nữ";'Danh Sach'!$E$7:$E$10000))+0)

Xin hướng dẫn để đưa công thức vào Worksheet_Change, khi code chạy sẽ cho giá trị ở ô D2 và D3. (Luôn luôn cố định)
Đây là file của em. Xin cảm ơn!