I need help with a CopyData macro

Sub CopyData()
Dim RngColA As Range
Dim i As Range
Application.ScreenUpdating = False
Set RngColA = Range("A2", Range("A" & Rows.Count).End(xlUp))
For Each i In RngColA
With Sheets(i.Value)
Range(Cells(i.Row, 2), Cells(i.Row, 10)).Copy
.Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial
End With
Next i
Application.ScreenUpdating = True
End Sub

This is what someone told me to use but it is not working....
What I need to do is if Column "A", starting with A5, has certain text in it
then that row will be copied to its corresponding spreadsheet..
Example:
Cell A5 says "Eva Perryman"
I need cells B5-J5 to be copied to the worksheet called Eva Perryman, and so
forth for each name in Column A...
If you respond keep in mind that I am not a macrto person so you will have
to explain in detail how to get it to work.....
I can send the file to you to work it if you need me to.... my email address
is