If cells are empty hide rows

Hi,

I have added a few new rows and now I can't get it to work.

These are the conditions:

If all cells with the 6 X are empty = hide row 150-152
If J151 or P151 have any value = keep row and also keep row 150
If J152 or P152 have any value = keep row and also keep row 150
If only row 150 has values = hide row 151 and 152

Capture.PNG

Formula:

Sub Skjul_0_Projektaftale()



beginRow = 150 'first row'

endRow = 180 'last row'

CheckCol_1 = 4 'column number --> Gulvarme

CheckCol_2 = 10 'First column

CheckCol_3 = 16 'Second column



For rowNum = beginRow To endRow

    If Cells(rowNum, CheckCol_1).Value <> "" And Cells(rowNum + 1, CheckCol_2).Value = 0 And Cells(rowNum + 1, CheckCol_3).Value = 0 Then

        Cells(rowNum + 2, CheckCol_1).EntireRow.Hidden = True



    End If

Next rowNum



For rowNum = beginRow To endRow

    If Cells(rowNum, CheckCol_1).Value <> "" And Cells(rowNum, CheckCol_2).Value = 0 And Cells(rowNum, CheckCol_3).Value = 0 _

    And Cells(rowNum + 1, CheckCol_2).Value = 0 And Cells(rowNum + 1, CheckCol_3).Value = 0 Then

        Cells(rowNum, CheckCol_1).EntireRow.Hidden = True



    End If

Next rowNum





End Sub