Ваш код был в основном сгенерирован устройством записи макросов. То, что он делает, довольно просто, но с ним трудно работать в такой форме. Если вы измените его так, чтобы переменные были определены, с ним будет намного чище и легче работать.
Для начала, вот простой фрагмент кода, который делает нечто похожее с правильно определенными переменными. Анимированный .gif показывает, что он работает для копирования содержимого из листа в одной книге на лист в другом (нажмите для подробностей). Надеюсь, что после его изучения вы сможете отрегулировать решение вашей проблемы.
Option Explicit
Sub test()
Dim wb As Workbook, wb2 As Workbook
Dim sh As Worksheet, sh2 As Worksheet
Dim r2 As Range
Set wb2 = ThisWorkbook
Set sh2 = wb2.Worksheets("977-053")
Set r2 = sh2.Range("A1")
For Each wb In Workbooks
If wb.Name = "Book2" Then
Set sh = wb.Worksheets("Chavez")
sh.Cells.Copy
sh2.Activate
r2.Select
sh2.Paste
End If
Next
End Sub