如何基于D列中的最后一个值删除所有行

Question

我试图根据D列中的最后一个单元格值删除所有行

Sample

代码：

function get_navigation_bar_with_ad( $html ) {
    return $html . '<div>This will appear above the nav bar.</div>';
}
add_filter( 'tps_the_content_after_current_slide', 'get_navigation_bar_with_ad' );

问题是我在其他列中有公式。此代码在具有 Sheets("Sheet2").Columns("H").SpecialCells(xlBlanks).EntireRow.Delete

的行处停止