I have the following code but I need to find why it is telling me an error:


If Not Intersect(Target, Range("L:L")) Is Nothing Then
If Target.Cells.Count = 1 Then ' stops the code looping
If LCase(Target.Value) = "yes" Then

If LCase(Target.Value) = "yes" Then
RptProjRowNum = Application.WorksheetFunction.Match( _
ActiveSheet.Range("C" & TRow).Value, _
Worksheets("Report").Range("K5:K1000"), 0) + 4



Worksheets("Report").Range("L" & RptProjRowNum & ":O" & RptProjRowNum).Value = _
Range("D" & TRow & "H" & TRow & "I" & TRow & "J" & TRow).Value



Worksheets("Report").Range("R" & RptProjRowNum).Value = _
Range("K" & TRow).Value


End If

Range(Cells(Target.Row, 1), Cells(Target.Row, 12)).ClearContents
End If
End If
End If
End If

In my Sheet "Contracts" I need to get the info in column D then skip EFG then grab HIJ to add them in LMNO in my "Report" sheet.

The following doesn't work:

Worksheets("Report").Range("L" & RptProjRowNum & ":O" & RptProjRowNum).Value = _
Range("D" & TRow & "H" & TRow & "I" & TRow & "J" & TRow).Value
Please help