VBA Select mutiple rows (ending range variable)

OK - I cant figure this out. Trying to teach myself the VBA code language and it just isn't working....and a google search isn't helping either.


Two Questions that both refer to when the end range value varies.
(1) - How do I select rows in VBA when I know the starting row number. - e.g: Row 23 (but my only referrence on where to end the range is how many rows have data in them when looking at Column D?)
(2) - How do I select rows in VBA based off the current active cell using Offset - (meaning my starting range value is the current active cell. (but my only referrence on where to end the range is how many rows have data in them when looking at Column D?)

Does this make sense?

I know this is wrong, but this is what I have:

Rows(23 & : & D" & Rows("23").End(xlDown).Row).Select

I have upload a reference file, if needed. Sample 12-30.xlsm

Thanks in advance.