Pasting data in cell adjacent to specific word

[mozza90]

Hi,

I a spreadsheet ("Sales") that tracks a total sales figure and each day is a new column. e.g. the below table.

	A	B	C	D
1		03/06/2018	04/06/2018	05/06/2018
2	Sales	50,000	60,000	65,000
3	Costs	10,000	32,000	4,000
...	.....
...	....
...	...
106	Salesperson1	24,000	29,000	36,000
107	Salesperson2	18,000	18,500	28,000

<tbody>
</tbody>

I need to find the last values in rows 106 and 107 and copy them into a workbook called "Daily Tracker 2018.xlsx" which is already open. The figures will be copied into the cell adjacent to the words Salesperson1 and Salesperson2. These words are always in column A, so the data will always be pasted into Column B but the row may vary over time.

So far I have the below, but I can't seem to find a way to search for the word Salesperson1 and paste the data into the adjacent cell. Any ideas on how to do this?

Dim Sales As Workbook
Dim Tracker As Workbook

Set Sales = Workbooks("Sales")
Set Tracker = Workbooks("Daily Tracker 2018")

Sales.Activate
Range("XFD106").Select
Selection.End(xlToLeft).Select
Selection.Copy

Tracker.Activate

 

[Fluff]

How about

   Dim Fnd As Range
   
   Set Fnd = Range("A:A").Find("Salesperson1", , , xlWhole, , , False, , False)
   If Not Fnd Is Nothing Then Fnd.Offset(, 1).PasteSpecial

 

[mozza90]

Bingo! That's perfect, thank you!

 

[Fluff]

Glad to help & thanks for the feedback