vba for vlookup to paste info onto next line down in next open cell in new workbook

[Saoirse]

Trying to copy with a vlookup info from the list from workbook "Shrinkage" sheet "Friday" then paste it onto workbook "Productivity tracker" sheet "Allie" on the next row down in columns Y:AD.

here afre the macros i keep trying but neither one seems to pull the info the paste onto the "Allie" spreadsheet on the next line down starting on column Y.
Sub shrinkpull()

Dim NextRow As Integer

NextRow = sheets("Allie").Cells(Rows.Count, 23).End(xlUp).Row + 1

sheets("Allie").Range("Y" & NextRow) = Workbooks("Shrinkage.xlsx").Worksheets("Monday").Range("C4:H4").copy _
("Productivity Tracker.xlsm").Worksheets("Allie").Range("Y & NextRow")

End Sub
Sub vlook()
'
Dim NextRow As Integer

NextRow = sheets("Allie").Cells(Rows.Count, 23).End(xlUp).Row + 1
'
Sheets("Allie").Range("Y" & NextRow)= WorksheetFunction.VLOOKUP([Shrinkage.xlsm](sheets("Friday").Range ("A4"),[Shrinkage.xlsm]sheets("Friday").Range("A3:H32"), 3,FALSE))


End Sub

Shrinkage.xlsm
	A		C	D	E	F	G	H
1	Enter the minutes worked for each category. EX: 1 hour = 60; 2 hours = 120		Compliance	System issues	Frontier	Letters / Special projects	Call pulls, fee calculations, large cases	buzz, trianing, coaching
2
3	Alexis
4	Allie		60	10	80	45	20	30
5	Aaron
6	Breonna
Friday

Productivity Tracker.xlsm
	A	B	C	D					I	J			M	N					S	T	U	V	W	X	Y	Z	AA	AB	AC	AD
2	Date	Adjustments made	Prep Cases Worked	Time					Denial Closures	Time			ACE	Time					Approved Closure	Time	Worldpay Settlements	Time	Total Minutes Worked	% time working cases	Compliance	System issues	Frontier	Letters / Special Projects	Call pulls / fee calculations / large cases	buzz, trianing, coaching
3	2/1/2022	46	27	216					1	7				0					11	44	7	21	288	64%	60	10	80	45	20	30
4	2/2/2022	36	11	88					5	35			5	15					2	8	13	39	185	41%
5	2/3/2022	48	2	16					16	112			1	3					17	68	9	27	226	47%
6	2/6/2022	18	2	16					3	21				0					10	40	3	9	86	18%
Allie

Cell Formulas
Range	Formula
W3:W6	W3	=SUM(D3+J3+N3+T3+V3)
X3:X4	X3	=W3/450
Y3	Y3	=VLOOKUP('Z:\Departmental Shares\dOps\POC Training Material\Intake\Lesli Johnson\[Shrinkage.xlsm]Friday'!$A$4,'Z:\Departmental Shares\dOps\POC Training Material\Intake\Lesli Johnson\[Shrinkage.xlsm]Friday'!A$3:H$32,3,FALSE)
Z3	Z3	=VLOOKUP('Z:\Departmental Shares\dOps\POC Training Material\Intake\Lesli Johnson\[Shrinkage.xlsm]Friday'!$A$4,'Z:\Departmental Shares\dOps\POC Training Material\Intake\Lesli Johnson\[Shrinkage.xlsm]Friday'!A$2:H$32,4,FALSE)
AA3	AA3	=VLOOKUP('Z:\Departmental Shares\dOps\POC Training Material\Intake\Lesli Johnson\[Shrinkage.xlsm]Friday'!$A$4,'Z:\Departmental Shares\dOps\POC Training Material\Intake\Lesli Johnson\[Shrinkage.xlsm]Friday'!A$3:H$32,5,FALSE)
AB3	AB3	=VLOOKUP('Z:\Departmental Shares\dOps\POC Training Material\Intake\Lesli Johnson\[Shrinkage.xlsm]Friday'!$A$4,'Z:\Departmental Shares\dOps\POC Training Material\Intake\Lesli Johnson\[Shrinkage.xlsm]Friday'!A$3:H$32,6,FALSE)
AC3	AC3	=VLOOKUP('Z:\Departmental Shares\dOps\POC Training Material\Intake\Lesli Johnson\[Shrinkage.xlsm]Friday'!$A$4,'Z:\Departmental Shares\dOps\POC Training Material\Intake\Lesli Johnson\[Shrinkage.xlsm]Friday'!A$3:H$32,7,FALSE)
AD3	AD3	=VLOOKUP('Z:\Departmental Shares\dOps\POC Training Material\Intake\Lesli Johnson\[Shrinkage.xlsm]Friday'!$A$4,'Z:\Departmental Shares\dOps\POC Training Material\Intake\Lesli Johnson\[Shrinkage.xlsm]Friday'!A$3:H$32,8,FALSE)
X5:X6	X5	=W5/480
I3:I6,S3:S6	I3	=SUM(E3:H3)
M3:M6	M3	=SUM(K3:L3)

 

[Alex Blakenburg]

Your comment helped.

Not sure if it is because I don't have EVERY employee tab filled in on the productivity tracker or not. But that could be it.

I wrapped the section to look up the person inside an if statement to ignore persons who don't have the Input Date on their sheet.
Get rid of the lines with dashed it was just to try to highlight that I had wrapped the previous section inside the if statement.

                '--------------------------------------------------------------------------------------------------------
                ' Do the next section only if date found for Person                 ' <--- New line added (1 of 3)
                If prdRowNo <> 0 Then                                               ' <--- New line added (2 of 3)
                '--------------------------------------------------------------------------------------------------------
                    ' Find Person's Name in Shrinkage sheet for the day of the week matching the input date
                    If Not IsError(Application.Match(persName, rngShkName, 0)) Then
                        shkPersRow = Application.Match(persName, rngShkName, 0)
                      
                            Set rngShkPers = shtShkDay.Range("C" & shkPersRow & ":H" & shkPersRow)
                            shtProd.Range("Y" & prdRowNo).Resize(, rngShkPers.Columns.Count).Value = rngShkPers.Value
                    Else
                            ' Remove this if it is a common occurence for people not being on the Shrinkage sheet
                            MsgBox persName & " Not found on " & dtCellDay
                    End If
                '--------------------------------------------------------------------------------------------------------
                End If                                                                ' <--- New line added (3 of 3)

 

[Saoirse]

This works beautifully!! Thank you so much again for all your help!! I appreciate it more than you know!