Taking The Value Of A Range Of Cells From One Workbook And Place Them In Another

I've been trying to learn how to write code in VBA. I've been learning for about 2 weeks now (trying to learn it for work) and heres my problem. I have a macro that will create a pivot table from raw data that I input. From this pivot table, I want to go to the last row in the pivot table (the row that takes grand totals of each column of data). I want to write a macro that will take those values (located in a workbook called AR age sorting) and place them in cells in another workbook (called AR aging analysis). Basically cells D6-D9 in workbook "AR aging analysis" should equal the values of the last row in my pivot table in workbook "AR age sorting" (last cell with data in columns J-M). I thought this would be easy but I've run into some issues. Heres the code I use:

Sub aging_summary()
Dim Sheet1 As Worksheet
Dim Sheet2 As Worksheet
Set Sheet1 = Sheets("AR age sorting")
Set Sheet2 = Sheets("AR aging analysis")
For n = 10 To 13
For M = 6 To 9
Sheet2.Range(Cells(M, 4), Cells(M, 4)). _
Value = Sheet1.Range(Cells(n, 1), Cells(n, 1)). _
End(x1Down).Value

Next M
Next n
End Sub

I don't want it to copy and paste the values since I just need the value, not all the extra formatting and what not that is incorporated in the pivot table. When I try to run this I get an error message, saying that there is an application-defined or user-defined error.