How to make 2 macros work

Below I have pasted the 2 macros that i am trying to use. When I added the second macro which is the same as the first one but it is for a different cell erros pop up when i try changing the cell for the second macro. How do i correct this so that the second macro works?
I am sure it is in the beginning of the notation for the second macro.




Private Sub worksheet_change(ByVal target As Range)
If Not Intersect(target, Range("D55")) Is Nothing Then
Rows("56:65").EntireRow.Hidden = False
Select Case target
Case 0
Rows("56:65").EntireRow.Hidden = True
Case 1
Rows("58:65").EntireRow.Hidden = True
Case 2
Rows("60:65").EntireRow.Hidden = True
Case 3
Rows("62:65").EntireRow.Hidden = True
Case 4
Rows("64:65").EntireRow.Hidden = True
Case 5
Rows("56:65").EntireRow.Hidden = False
End Select
End If
End Sub

Private Sub worksheet_change(ByVal target As Range)
If Not Intersect(target, Range("H78")) Is Nothing Then
Rows("80:112").EntireRow.Hidden = False
Select Case target
Case 0
Rows("80:112").EntireRow.Hidden = True
Case 1
Rows("91:112").EntireRow.Hidden = True
Case 2
Rows("103:112").EntireRow.Hidden = True
Case 3
Rows("80:112").EntireRow.Hidden = False
End Select
End If
End Sub