VBA Code to set the zoom automatically to display a certain range of cells

I have a finances spreadsheet that has a scroll lock placed upon it and is formatted to fit perfectly within a 1080p display,

I have found when using a lower resolution display that the zoom is not correct upon opening so I am trying to find out what VBA code i need to use to have the workbook open to display the scoll lock's range of cells or set the zoom automatically so it fits every screen it opens on.

Many thanks for your help!

Will

Hello.
I use to work with two different monitors (a laptop and an external one). So I had the same problem. And I solved just with a similar code.

Sub DIARIOAJUSTARVENTANA()
'
' DIARIOAJUSTARVENTANA Macro
'

'
ActiveSheet.Unprotect
Application.Goto Reference:="AJUSTADOR"
ActiveWindow.Zoom = True
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True
ActiveSheet.EnableSelection = xlUnlockedCells
Range("A4").Select
Selection.End(xlDown).Select
SendKeys "{down}"
End Sub

In my case, the row "4" is the first data row of my spreadsheet. 1, 2 and 3 are frozen.

These days I found that hiding the row and column headings I had more space on my screen, and less useless information in my eyes. So I did that.
But for my surprise, when I execute my "DIARIOAJUSTARVENTANA" macro, it keeps the space needed for the row title on the right of the screen, what results on showing me part of a column that is out of the interest area.

I pasted a view of my screen here. The green area on the right is not part of the interest area. The only way I have found to solve it is to select "Show Headings" again.


How to feet the zoom I desire without headings?

Captura.JPG