Remove empty rows based on a cell range.

Is there a way to remove empty rows, by selecting a specific range of rows only.
In the attached sheet, the range is Rows $A$20 to $A$45 inclusive, but it must start at row 20.
If the code can be limited to the range stipulated only, if empty they will remove the row, stopping at row 46 - which contains data.

So it checks the row, if populated move to the next row, if populated move to the next row, and so on until it finds an empty cell in column A, then deletes the row and continues down until the last empty row in the range inclusive of $A$45.

Hello,

this is something easy. But it is to say that with VBA the deletion of rows should be done from bottom to top.
Here a short code which works for your requirements:

Please Login or Register  to view this content.

Karmapala's response is simpler and keeps it to the range as well.

Yes it is shorter.
And by the way my code keeps the range also. But I was checking before for the last used row. So the range is more flexible in case the range change.
No matter it will be shorter or longer. With my code you do not need to amend the range in the code. This just for info.