Delete Blank Rows Within a Range using Macro

[aharvestofhealth]

I would like to delete all rows in my spreadsheet that doesn't contain any data within the range of B2 through E25. The below Macro almost works but doesn't remove anything past the last cell containing data within that range.

Please Login or Register  to view this content.

So for example, in the below image I would want rows 2,3,5,6,7,9 and 10 deleted. Since rows 4, 8 and 11 contain data within the specified range, I want to retain those rows. To clarify, I want the entire row to be deleted (no row shifting).

nxE0ygd.png

[KOKOSEK]

You want to check rows 2 to 25 (B2:E25). Code vba checks rows from 10 to 1.

[aharvestofhealth]

Thank you. Replacing 10 with 25 was the trick.