Fusion af 2 makroer

Kan man kun have 1 private sub pr. ark ?....i så fald har jeg brug for lidt hjælp til at samle 2 makro bidder til en, jeg har selv forsøgt dog uden held, de virker fint hver for sig....det drejer sig om følgende :

Private Sub Worksheet_Change(ByVal Target As Range)

Dim t(1 To 4)
  If Intersect(Target, Range("aa:aa")) Is Nothing Then Exit Sub
  If Target.Cells.Count > 27 Then Exit Sub
  If Len(Target) <> 16 Then Exit Sub
  application.EnableEvents = False
  t(1) = Mid(Target, 1, 4)
  t(2) = Mid(Target, 5, 4)
  t(3) = Mid(Target, 9, 4)
  t(4) = Mid(Target, 13, 4)
  Target = t(1) & "-" & t(2) & "-" & t(3) & "-" & t(4)
  application.EnableEvents = True
 
End Sub

Private Sub Worksheet_Change2(ByVal Target As Range)
Dim OldVal

On Error GoTo ExitHere
If Intersect(Target, Range("y:z")) Is Nothing Then Exit Sub
    If Target.Cells.Count = 1 Then
    OldVal = Target
        If Not Target.HasFormula Then
            If IsNumeric(Evaluate("=" & Target.Value)) Then
            Target = "=" & Target
            End If
        End If
    End If
Exit Sub
ExitHere:

Target = OldVal
End Sub



på forhånd tak