Macro to auto hide rows in a specific range

HI, i have the following macro to autohide some rows with no data, however its remove rows starting from column A.

Sub Hide_Rows()

    BeginRow = 4
    EndRow = 50
    ChkCol = 8

    For RowCnt = BeginRow To EndRow
        If Cells(RowCnt, ChkCol).Value < 1 Then
            Cells(RowCnt, ChkCol).EntireRow.Hidden = True
        Else
            Cells(RowCnt, ChkCol).EntireRow.Hidden = False
        End If
    Next RowCnt
End Sub

How do i fix this to only hide the rows in the range (H4:V50)?

Thanks!!!

Hi Alan, its not hiding anything now....

Hi, i think i've got it... the rows are now auto hiding nicely, but how do i set the above macro to run when i open the workbook? Currently i am assigning the macro to a shape and manually clicking the shape to run it. I would like it to run ever time i open the Excel workbook so the rows automatically hide/unhide every morning when i launch the spreadsheet.

thanks!