Копирование ячеек с листа на лист

[Sleg777]

Доброго времени суток!

Ячейки не копируются! Подскажите почему? Как упростить?

Sub Fundation()
Dim Lay_1, Lay_S As Worksheet
Dim FinalRow, FinalColumn As Long
Set Lay_1 = Application.ThisWorkbook.Worksheets ("1")
Set Lay_S = Application.ThisWorkbook.Worksheets ("Sites")
FinalRow = Lay_1.Cells(Rows.Count, 2).End(xlUp).Row
FinalColumn = Lay_1.Cells(1, Columns.Count).End(xlToLeft).Column
Lay_S.Range(Lay_S.Cells(2, 1), Lay_S.Cells(FinalRow - 1, 1)) = Lay_1.Range(Lay_1.Cells(2, 8), Lay_1.Cells(FinalRow - 1, 8))
End Sub

[kalbasiatka]

в конце диапазонов добавить .Value и зачем искать последний столбец? Какой смысл заменять названия листов переменными, если их названия длинее листов )

[Sleg777]

Спасибо!

Выдернул часть макроса который не работал (как надо).