In sheet 'Sector Budget', sector description is entered in column C, E, G, I, K, M, O, Q, S, U, W from row 2 to row 22. The description is Text.
Each Sector has a corresponding budget value, Offset(0, 1) to the description. These are in columns D, F, H, J, L, N, P, R, T, V, X. The budget value is numeric.
In 'Sheet Budget' column B are the corresponding Totals of the budget values for each row. Budget totals are also numeric.

In the code below, If I enter a numeric value in column E6:E305, the value entered in the cell is captured and added to the numeric value in the related row of column Z in the sheet 'Sector Budget'.
Currently, this code works flawlessly and accurately without any errors. Many thanks to your assistance.

I would like to include more functionality to this code.

In column D of my Active Sheet, the text value entered is a Sector description as found in sheet 'Sector Budget'.
When I enter a numeric value into column E of my Active sheet, rather than adding to the value in column Z of the related row in sheet 'Sector Budget',
I want the code to instead find the related sector description in sheet 'Sector Budget' then add the value from my Active sheet to the Offset(0, 1) value of the of the related Sector description in sheet 'Sector Budget'.

Can you please once again assist me in doing this.

' Deduct or Add to Budget Balance
If Target.CountLarge > 1 Then Exit Sub
' Check if the change occurred in column E or D
If Not Intersect(Target, Me.Range("E6:E305")) Is Nothing Then
    ' Verify that the entered value is numeric
    If Not IsNumeric(Target.Value) Then
        Application.EnableEvents = False
        MsgBox "Please enter a numeric value."
        Application.EnableEvents = True
        Exit Sub
    End If
    ' Prompt for confirmation
    Dim confirmation As Integer
    ' Update confirmation message
    Dim confirmationMessage As String
    If IsNumeric(Target.Value) Then
    confirmation = MsgBox(confirmationMessage & vbCrLf & "A negative value will decrease the budget." & vbCrLf & vbCrLf & _
    "A positive value will increase the budget." & vbCrLf & vbCrLf & _
    "Click YES to accept the new value." & vbCrLf & vbCrLf & _
    "Click NO to revert to the previous value.", vbYesNo + vbQuestion, "Confirm Budget Change")
    ' Check user's response
    If confirmation = vbYes Then
        ' Proceed with deduction or addition logic
        Dim deducedCell As Range
        Set deducedCell = Target.Cells(1)
        Dim deductionValue As Double
        deductionValue = deducedCell.Value
        Dim sectorBudgetSheet As Worksheet
        Set sectorBudgetSheet = ActiveWorkbook.Worksheets("Sector Budget")
        Dim searchValue As String
        searchValue = ActiveSheet.Range("D1").Value
        Dim matchRow As Long
        matchRow = sectorBudgetSheet.Range("A:A").Find(searchValue, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:=False).Row
        'If matchRow = 0 Then Exit Sub
        Dim currentAAValue As Double
        currentAAValue = sectorBudgetSheet.Cells(matchRow, 27).Value
        Application.EnableEvents = False
        sectorBudgetSheet.Cells(matchRow, 26).Value = sectorBudgetSheet.Cells(matchRow, 26).Value + deductionValue
        sectorBudgetSheet.Range("B2:B22").Calculate
        Application.EnableEvents = True
        Else
        ' Restore original value explicitly
        Application.EnableEvents = False
        Application.Undo
        Target.Value = Target.Value2
        Application.EnableEvents = True
    End If
    ActiveSheet.Range("K2").Calculate
End If
End If