How Can I Speed Up Windows?: How to Resolve - Can this Code be Modified to work?

Can this Code be Modified to work

I am using below Code & it Works can this be modified to also clear contents H2 O2 & V2 in the same manner

Private Sub Worksheet_Change(ByVal Target As Range)
     If Target.Count > 1 Then Exit Sub
     If Not Intersect(Target, Range("D2,L2,T2")) Is Nothing Then
         If Target.Address = Range("T2").Address Then
         Target.Range("A4:A43").ClearContents
           Else
         Target.Range("A4:A43").ClearContents
         End If
     End If
If Not Intersect(Target, Range("D2")) Is Nothing Then
    Application.EnableEvents = False
    Range("D88:J100").ClearContents
    Application.EnableEvents = True
    Exit Sub
End If
If Not Intersect(Target, Range("L2")) Is Nothing Then
    Application.EnableEvents = False
    Range("K88:Q100").ClearContents
    Application.EnableEvents = True
    Exit Sub
End If
If Not Intersect(Target, Range("T2")) Is Nothing Then
    Application.EnableEvents = False
    Range("R88:Y100").ClearContents
    Application.EnableEvents = True
    Exit Sub
End If
End Sub

Anwsers to the Problem Can this Code be Modified to work

Download SmartPCFixer to Fix It (Free)

I tried your Code & got Error with :
...

Sometimes pasting the code from the web will result in non-breaking spaces and/or extra line feeds.
Change those three lines to,

Target.Offset(86, (Target.Column > 8) + (Target.Column > 15)).Resize(13, 7 -  (Target.Column > 15)).ClearContents

That should all be on one line with spaces and no non-breaking spaces.

···
   If Target.Address = Range("R2").Address Then
         Target.Range("A4:A43").ClearContents
           Else
         Target.Range("A4:A43").ClearContents
         End If
···

I still do not understand the purpose of this.
A4:A43 will be cleared regardless of whether or not the
Target address matches R2's address.
Why not just clear it and forego the address check altogether?

Here is a modification to address the new ranges you've posted,

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("D2,K2,R2")) Is Nothing Then
On Error GoTo FallThrough
Application.EnableEvents = False
Target.Offset(0, 4).MergeArea.ClearContents
Target.Offset(3, 0).Resize(40, 1).ClearContents
Target.Offset(86, 0).Resize(13, 7 - (Target.Column = 18)).ClearContents
End If
FallThrough:
Application.EnableEvents = True
End Sub

It will accomplish the following:

D2 clears D88:J100 & D5:D44 & $H$2:$J$2
K2 clears K88:Q100 & K5:K44 & $O$2:$Q$2
R2 clears R88:Y100 & R5:R44 & $V$2:$X$2

I sincerely hope I got that correct this time around.
If not, please provide specific range addresses to clear for each cell triggering hte
Worksheet_Change event macro.

To check for Windows updates

Open Windows Update by clicking the Start button Picture of the Start button, clicking All Programs, and then clicking Windows Update.
In the left pane, click Check for updates, and then wait while Windows looks for the latest updates for your computer.
If any updates are found, click Install updates. Administrator permission required If you are prompted for an administrator password or confirmation, type the password or provide confirmation.

Another Safe way to Repair the Problem: Can this Code be Modified to work:

How to Fix Can this Code be Modified to work with SmartPCFixer?

1. Click the button to download Error Fixer . Install it on your system. Open it, and it will scan your computer. The errors will be shown in the list.

2. After the scan is done, you can see the errors and problems need to be repaired. Click Fix All.

3. The Repair part is finished, the speed of your computer will be much higher than before and the errors have been removed. You can also use other functions in SmartPCFixer. Like dll downloading, junk file cleaning and print spooler error repair.