Sửa giúp code chèn dòng theo số lượng dòng xác định trước trên bảng tính (1 người xem)

[Nguyễn Hồng Quang]

Dear all
Sau khi tham khảo, tìm tòi và nghiên cứu các code của các cao thủ
Áp dụng vào nhu cầu thực tiễn của mình là muốn chèn 1 số lượng dòng xác định trước trên bảng tính
Mình có trích ra 1 code như sau:

Sub chendongxacdinh()
lr = [a2].End(xlDown).Row
    For i = lr To 2 Step -1
        If Cells(i, 4) > 1 Then
           Cells(i + 1, 4).Select
           r = Cells(i, 4)
            Selection.Resize(Cells(i, 4) - 1, 1).Select
            Selection.EntireRow.Select
            Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
            Cells(i, 4).Select
            Selection.Value = 1
            Selection.Resize(r, 1).Select
            Selection.EntireRow.Select
            Selection.FillDown
        End If
 lr = [a2].End(xlDown).Row
    Next
End Sub

Tuy nhiên khi chạy code thì số lượng dòng muốn chèn vào bị hụt mất 1 dòng tính từ dưới dòng bắt đầu chèn
VD: Mình muốn chèn 5 dòng tính từ dưới dòng số 3, mình gõ số 5 vào ô D3; Tiếp đó chèn 3 dòng tính từ dưới dòng số 5 , mình gõ số 3 vào D5 Chạy code thì nó chỉ ra thêm được 4 dòng và 2 dòng tính từ các dòng đó

Mong mọi người sửa đổi lại code giúp để kết quả ra đúng số lượng dòng muốn chèn. Xin chân thành cảm ơn
Chi tiết xem file gửi kèm