Hide Range From Last Open Cell

[MPBJR]

I started the code below, the first line finds the first blank row, and the second selects the entire row. What I need to do now is hide the range from the current selected row to row 500. I can't seem to find the code or figure it out from this point. Any help or ideas would be much appreciated. Thanks

Sub hiderange()
'


'
    
    Range("d65536").End(xlUp).Offset(1, 0).Select
    Rows(ActiveCell.Row).Select
    

    
End Sub

 

[machopicho]

Sub hiderange()
'

'
    
    Range("d65536").End(xlUp).Offset(1, 0).Select
    Rows(ActiveCell.Row).Select
    Rows(ActiveCell.Row & ":" & ActiveCell.Row + 500).EntireRow.Hidden = True

End Sub

 

[MPBJR]

Thanks!