I need to copy and paste information from one page to another but I need also that this information to be on the same row of my Column's A information.

Ex:
If sheet1 Cell A5's information = Test and the following code is added: 

    If Not Intersect(Target, Range("I:I")) Is Nothing Then
    If Target.Cells.Count = 1 Then ' stops the code looping
        If LCase(Target.Value) = "yes" Then
            Range(Cells(Target.Row, 1), Cells(Target.Row, 1)).Copy
            Sheets("Evaluation").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
            Range("E" & TCol & ":G" & TCol).Copy
            Sheets("Report").Range("F" & TCol).PasteSpecial xlPasteValues
          Else
            Sheets("Report").Cells(Rows.Count, "F").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
          End If
        
        Range(Cells(Target.Row, 1), Cells(Target.Row, 9)).ClearContents
    End If
End If
End If
I need the 
Range("E" & TCol & ":G" & TCol).Copy
to be copied on the same row in "report" sheet on the same row where information "Test" is.

This code will copy and paste it to the next available row.


Help