Macro to match specific value in one sheet and replace the entire row value in other sheet

[Chandresh]

I have two different sheets - 1) “Working” 2) “data”

Working sheet has data in column from 1 to 14 , 14th column has unique values like ABC, XYZ ,LMN and so on
I need a macro to find the unique value from working sheet in Data sheet if the unique value matches then macro should copy first 5 column data value from working sheet and paste it in data sheet.
Example if macro finds ABC in “data” sheet on 10th row then macro should copy the data value from working and paste the data on A10:E10 and it should loop.

Thanks in advance for your help

 

[JLGWhiz]

See if this does what you want.

Sub t()
Dim sh1 As Worksheet, sh2 As Worksheet, c As Range, fn As Range
Set sh1 = Sheets("Working")
Set sh2 = Sheets("Data")
    For Each c In sh1.Range("N2", sh1.Cells(Rows.Count, "N").End(xlUp))
        Set fn = sh2.UsedRange.Find(c.Value, , xlValues, xlWhole)
            If Not fn Is Nothing Then
                sh1.Cells(c.Row, 1).Resize(, 5).Copy sh2.Cells(Rows.Count, 1).End(xlUp)(2)
            End If
    Next
End Sub

Since no column was specified in Data sheet, I assumed the unique value could be anywhere in the rows if the sheet.