使用vba获取excel中动态填充的单元格中的最后一个单元格值

我有一个excel工作簿，有两张表1和2。我正在运行一些代码来填充Sheet1。现在在Sheet2 B1单元格中，我想要[Sheet1最后一个单元格在D列中的值]+1

---

有人能帮我把这个编码吗。提前感谢。

这将捕获表1的D列中的最后一个值

Sub DataCapture()
Dim N As Long, V As Variant
    With Sheets("Sheet1")
        N = .Cells(Rows.Count, "D").End(xlUp).Row
        V = .Cells(N, "D").Value
    End With
    Sheets("Sheet2").Range("B1").Value = V
End Sub