VBA delete row if date contained however skip if blank

[Sparda142]

Hello,


I am looking for a vba that will do the follow. If the cell a2 date value is not the date value of the cells below delete the row however if the cell is blank within the column do nothing and move on to the next cell.


[TABLE="class: grid, width: 150"]
<tbody>[TR]
[TD][/TD]
[TD]a[/TD]
[TD]b[/TD]
[/TR]
[TR]
[TD]1[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]2[/TD]
[TD]7/22/2019 21:04[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]3[/TD]
[TD]7/22/2019 20:55[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]4[/TD]
[TD]8/1/2019 9:16[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]5[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]6[/TD]
[TD]7/22/2019 21:35[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]7[/TD]
[TD]8/1/2019 9:16[/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

 

[Fluff]

Duplicate https://www.mrexcel.com/forum/excel-questions/1106307-vba-delete-row-above-if-post5321977.html

Please do not post the same question multiple times. All clarifications, follow-ups, and bumps should be posted back to the original thread.
Per forum rules, posts of a duplicate nature will be locked or deleted (rule 12 here: Forum Rules).