VBA, Copy/paste special values to matching unique key on another tab

[Talinyn]

Using Version Excel Office standard 2010 version 14.0.4760.1000 (32-bit) on a Remote Desktop environment.
VBA skill level: Novice (recorded my first macro to do a text to columns split using Char(10) last week and wrote a Clear.contents macro 2 weeks ago) please be gentle lol.

I have 1 workbook with 2 tabs. One tab is named "Tool", the other "Personal Worklist"
I need to write a VBA code to do the following:
Upon pushing button I assign, Take the data from row 2 of "Tool" (Range.A2:AS2) and copy / paste special values to the row in "Personal Worklist" where the value in column B on "Tools" corresponds to that value in column B in "Personal Worklist"

Not sure if this has already been posted before, but any help or pointers to any previously posted thread would be very much appreciated. Thanks!!
-Audra

 

[Fluff]

Where abouts on the Personal Worklist sheet do you want to paste the data?
Overwrite the existing data, or paste staring in Col C?

 

[Talinyn]

Either is fine; whichever is easier. The information in Personal Worklist (Range A:K) is copied, pasted into the Tool (row 2, range A:K) for the individual to work with that line of data, make changes, then their work needs to be copied back into the Personal Worklist sans the formulas etc. from row 2 of Tools. Does that clarify sufficiently?

 

[Fluff]

Try this

Sub CopyValOnB()

    Dim Rng As Range
    
    With Sheets("Personal Worklist")
        Set Rng = .Columns(2).Find(Sheets("Tool").Range("B2").Value, .Range("B1"), xlFormulas, xlWhole, xlByRows, xlNext, True, False)
     End With
    If Not Rng Is Nothing Then
        Rng.Offset(, -1).Resize(, 45).Value = Sheets("Tool").Range("A2:AS2").Value
    Else
        MsgBox "Nothing found"
    End If
   
End Sub

 

[Talinyn]

Perfect!! Thank you so much!
-Audra

 

[Fluff]

Glad to help & thanks for the feedback