Question

I have a fairly simple spreadsheet application with some VBA code that performs simple row inserts and deletes as called by a user. This is a heavily formatted spreadsheet intended for use by people without Excel experience. The code for inserts and deletes is fine.

The sheet uses 15 rows, and every row below this point has been hidden. However, on deleting a complete row, each following row shifts upwards as is standard, leaving a ‘new’, blank row 15. I would like this behaviour to be overruled and for a blank row to not appear.

Might be simple? What would be the option to prevent this behaviour, and if this is impossible are there any tips for grabbing the identity of the ‘last visible’ row of a sheet so as to hide it away manually?

Cheers

Answer 1

You may need to adjust this to your needs, but this should work.

Sub GetLastVisibleCell()

Dim rng As Range

Set rng = ActiveSheet.Columns(1).SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeLastCell)

If rng = vbNullString Then rng.EntireRow.Hidden = True


End Sub