Error de range en macro de range de copy

Aparece un error en la primera línea que intenta copyr un valor en el siguiente VBA, creo que la segunda parte del range es incorrecta, pero no puedo detectar el problema.

Dim site As String Dim People As Range Dim AmountOfSites As Long Dim AmountOfPeople As Long Dim DestStartRow As Long Dim DestEndRow As Long Dim sh1 As Worksheet Dim sh2 As Worksheet Dim sh3 As Worksheet Set sh1 = ThisWorkbook.Sheets("SiteName") Set sh2 = ThisWorkbook.Sheets("Input") Set sh3 = ThisWorkbook.Sheets("Output") AmountOfSites = sh1.Range("A1048576").End(xlUp).Row AmountOfPeople = sh2.Range("A1048576").End(xlUp).Row DestStartRow = 2 DestEndRow = DestStartRow + AmountOfPeople For i = 1 To AmountOfSites sh3.Range(Cells(DestStartRow, "A"), Cells((DestEndRow), "L")).Value = _ sh2.Range(Cells(2, "A"), Cells(AmountOfPeople + 2, "L")).Value sh3.Range(Cells(DestStarRow, "M"), Cells(DestEndRow, "M")).Value = sh1.Cells(i, "A") DestStartRow = DestEndRow + 1 DestEndRow = DestStarRow + AmountOfPeople Next 

De @Scott Craner :

Todos los Ranges y Cells deben ser calificados. Entonces sh3.Range(sh3.Cells(...

y según OP:

Yeps. ¡Gracias! Eso fue todo