Macro to replace data

[gmazza76]

Good Afternoon,

I am using the VB below to try and find a reference in column 5 ( E ) and then copy the info as per below to the same row that it finds the reference on. I have come a bit unstuck as the VB is currently just copying a new line in instead of copying over it.

Would it be best way to do this way?

If mgrname = ("Manager 1") Then
Set MyFind = Sheets("Manager 1").Columns(5).Find(what:=CProNumber, searchdirection:=xlNext, lookat:=xlWhole)
    If Not MyFind Is Nothing Then
    extractRow = MyFind.Row
Else
    MsgBox "Cannot find value" & CProNumber
    Exit Sub
End If
Sheets("Manager 1").Cells(extractCell, 4) = Score
Sheets("Manager 1").Cells(extractCell, 9) = Q1
Sheets("Manager 1").Cells(extractCell, 10) = Q2
Sheets("Manager 1").Cells(extractCell, 11) = Q3

Many Thanks