¿Cómo fusionar dos VBA con funciones diferentes sin que se afecten entre sí?

Opción explícita

Valor antiguo público

Sub hoja de trabajo privada_Calculate()

'El segundo VBA es

' Private Sub Worksheet_Change(ByVal Target As Range)

' Si Target.Address <> "$E$1" Entonces salga de Sub

Si oldvalue = [E1] Entonces salga de Sub

valor antiguo = [E1]

[H1].Seleccione

Selección.Insertar Mayús:=xlAbajo, CopiarOrigin:=xlFormatFromLeftOrAbove

Celdas( 1 , "h") = [E1]

'End Sub 'Esta función es para guardar el contenido modificado de E1 en la columna H,

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Si Target.Address = "$A$3" Entonces

Target.Value = Target.Value + 1

End If

End Sub 'La función de esto es hacer clic en A3 una vez, A3 aumentará automáticamente en 1,

Private Sub Worksheet_Activate()

oldvalue = [E1]

Fin del subtítulo