Excel khi thêm dòng mới dùng code VBA mình cũng muốn đưa công thức từ dòng trên

Xin chào,

Tôi đã sử dụng mã đẹp từ liên kết bên dưới được đăng bởi OssieMac (CẢM ƠN) để chèn một hàng mới vào trang tính của tôi.

https://answers.microsoft.com/en-us/msoffice/forum/all/excel-adding-a-row-automatically/497c510d-0dac-4645-bc76-fb4f020aa14b?auth=1

Nhưng tôi cũng muốn đưa 2 công thức của hàng đó vào bất kỳ hàng mới nào được thêm vào.

Các công thức nằm trong B11 và E11 và muốn thêm chúng vào mỗi hàng mới được tạo.

Các công thức dành cho B11 =IFNA(VLOOKUP(B11,Data!$A$1:$C$66,2,3), "") và cho E11 =IFNA(VLOOKUP(B11, Data!$A$1:$C$66 , 3,0),"")

Khi các hàng được thêm vào, tôi cũng cần B11 để thay đổi sang hàng tiếp theo...B12, B13....vv, tương tự với E11

Tôi cần thêm dòng mã đơn giản nào vào mã đã hoạt động tốt được OssieMan trình bày?

Bảng tính phụ riêng tư_Change (Mục tiêu ByVal dưới dạng phạm vi)

'Kiểm tra xem cột B có thay đổi không và chỉ có một ô thay đổi
Nếu không giao nhau(Target, Me.Columns("B")) thì không có gì và _
Target.Cells.Count = 1 Sau đó

Target.Offset(1, 0).EntireRow.Insert Shift:=xlDown 'Chèn hàng bên dưới mục nhập dữ liệu

'Target.EntireRow.Insert Shift:=xlDown 'Chèn hàng phía trên mục nhập dữ liệu

Kết thúc nếu
Kết thúc phụ

CẢM ƠN RẤT NHIỀU trước và HÃY AN TOÀN!!!

Robert