how do i get the code below to not return duplicate declaration errors.
Code
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$4" Then
Range("A5:D1000").Select
Selection.ClearContents
Range("C10").Select
Dim rngToEval As Range, r As Range, msg As String, counter As Long
Set rngToEval = Sheets("INDEX01").Range("D:D").SpecialCells(xlCellTypeFormulas)
counter = 0
For Each r In rngToEval
If InStr(1, r.Value, Range("D4")) > 0 Then
counter = counter + 1
With Range("A" & counter)
.Offset(5, 0).Value = counter
.Offset(5, 1).Value = Sheets("INDEX01").Range("B" & r.Row)
.Offset(5, 2).Value = Sheets("INDEX01").Range("C" & r.Row)
End With
End If
Next
End If
If Target.Address = "$H$4" Then
Range("E5:H1000").Select
Selection.ClearContents
Range("C10").Select
Dim rngToEval As Range, r As Range, msg As String, counter As Long
Set rngToEval = Sheets("INDEX01").Range("D:D").SpecialCells(xlCellTypeFormulas)
counter = 0
For Each r In rngToEval
If InStr(1, r.Value, Range("H4")) > 0 Then
counter = counter + 1
With Range("E" & counter)
.Offset(5, 0).Value = counter
.Offset(5, 1).Value = Sheets("INDEX01").Range("B" & r.Row)
.Offset(5, 2).Value = Sheets("INDEX01").Range("C" & r.Row)
End With
End If
Next
End If
End Sub