Set Cell Value based on Top Row (in viewport)

Hey all you geniuses!

This may not be possible. I have a calendar where when you scroll down and click in a month, the value in D2 changes to the Month. This works fine but I am seeking a way to make the value change WITHOUT clicking in a cell, but rather just based on the top row shown in the viewport.
Is this possible?

I don't know if VBA can detect which row is in at the top of the users view or not. Basically my current macro has an "end row" variable for each month and it will change the cell when the user clicks in a cell below one of the variables. I could modify the variable to be stored by the viewport top row, if that's a thing.

Edit: (Adding this after the fact, forgot to put that I know how to get the top row and last row of the viewport, using VisibleRange..but I just don't know how to pass that value while scrolling, rather than only after clicking or right clicking a cell. It may not be possible (would require updating whenever scrolling happens)

Just for reference this is the code I am using now: (warning, it's not elegant..haha)

Please Login or Register  to view this content.

Thanks in advance as always.

I don't think a sample is required, but I attached it anyway.