Llamar a macro de hoja (ocultar y mostrar filas)

Tengo la siguiente macro :

Private Sub Worksheet_Change(ByVal Target As Range)

 Dim celda
 celda = [BF33]

 Application.ScreenUpdating = False

 Select Case celda

 Case 35
 Rows("42:56").Hidden = True

 
 Case 40
 Rows("42:56").Hidden = False
 Rows("47:56").Hidden = True
 Case 45
 Rows("47:56").Hidden = False
 Rows("52:56").Hidden = True
 Case 50
 Rows("42:56").Hidden = False
 Case Else
 Cells.Select
 Selection.EntireRow.Hidden = False
 Range("A1").Select
 End Select

 Application.ScreenUpdating = True

End Sub

La cual me sirve para ocultar filas de acuerdo al caso o condición.

Ahora lo que no puedo conseguir es que después de esta macro ese ejecute otra que me agrega una cierta cantidad de filas :

Range("58:70").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Si esta macro la llamo desde un modulo y de forma separa a la anterior me funciona perfecto, por una parte me oculta la filas y esta macro me inserta otras pero de forma separadas, lo que quisera hacer es que las dos macros se ejecuten ante la elección de cualquiera de los casos "35, 40, 45 y 50)