Change Event Code too long - Need to combine 2 events into 1 macro

Hi,

You can use matrix and loop like this

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim rng1 As Range, mtx(1 To 2) As String
  mtx(1) = "BR:BR, BV:BV, BZ:BZ, CD:CD, CH:CH, CL:CL, CP:CP, CT:CT, CX:CX, DA:DA, DF:DF, DJ:DJ, DN:DN, DR:DR, DV:DV, DZ:DZ,ED:ED, EH:EH, EL:EL, EP:EP, ET:ET, EX:EX"
  mtx(2) = "FB:FB, FF:FF, FJ:FJ, FN:FN, FR:FR, FV:FV, FZ:FZ, GD:GD, GH:GH, GL:GL, GP:GP, GT:GT, GX:GX, HB:HB, HF:HF"

  Application.EnableEvents = False
  For i = LBound(mtx) To UBound(mtx)
      Set rng1 = Intersect(Range(mtx(i)), Target)
      If Not rng1 Is Nothing Then
         rng1.Offset(0, 2).Value = Environ("username")
         rng1.Offset(0, 3).Value = Now()
      End If
  Next i
  Application.EnableEvents = True
End Sub