Excel Unir dois comandos no VBA

[Allex66sandro]

Gostaria de saber se tem como eu unir esses dois comandos, pois os dois tem o mesmo nome e dá erro quando se aplica na planilha, já tentei de diversas formas mas não resolveu.

 

PRIMEIRO CÓDIGO

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address <> "$B$44" Then Exit Sub
If Target.Value = 0 Then
    Rows("45").EntireRow.Hidden = True
    Rows("46").EntireRow.Hidden = True
    Rows("47").EntireRow.Hidden = True
    Rows("48").EntireRow.Hidden = True

End If 

 

End Sub

 

SEGUNDO CÓDIGO

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address <> "$B$49" Then Exit Sub
If Target.Value = 0 Then
    Rows("50").EntireRow.Hidden = True
    Rows("51").EntireRow.Hidden = True
    Rows("52").EntireRow.Hidden = True
    Rows("53").EntireRow.Hidden = True

End If

 

End Sub

 

 

Os códigos são iguais, porém só muda a célula q foi alterada e onde vai alterar.

 

Se alguem souber me ajudar agradeço

 

[Edson Luiz Branco]

Boa tarde!

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Count > 1 Then Exit Sub
  If (Target.Address = "$B$44" Or Target.Address = "$B$49") And Target.Value = 0 Then
    Target.EntireRow.Resize(4).Offset(1).Hidden = True
  End If
End Sub

 

[Allex66sandro]

@Edson Luiz Branco Muito Obrigado, era exatamente o que procurava, valeu mesmo!!!