Программа должна брать данные с 1 листа и выводить полученное на второй

Private Sub CommandButton1_Click()
Dim cena(7) As Double
Dim koll(7, 5) As Integer
Sheets("Лист1").Select
For i = 1 To 8
    cena(i) = Cells(3 + i, 2)
Next
For i = 1 To 8
    For j = 1 To 3
        koll(i, j) = Cells(3 + i, 2 + j)
    Next j
Next i
Sheets("Лист2").Select
Cells(1, 1) = "Поступившее в течении каждой смены"
Cells(2, 1) = "Наименование изделия"
Cells(2, 2) = "Стоимость 1шт"
Cells(2, 3) = "Изготовленно"
Cells(3, 3) = "1 смена"
Cells(3, 4) = "2 смена"
Cells(3, 5) = "3 смена"
Cells(3, 6) = "Всего"
Cells(4, 1) = "болт"
Cells(5, 1) = "винт"
Cells(6, 1) = "гайка"
Cells(7, 1) = "шайба"
Cells(8, 1) = "шуруп"
Cells(9, 1) = "гвоздь"
Cells(10, 1) = "скрепка"
Cells(11, 1) = "саморез"
End Sub

Dim cena(7) As Double

For i = 1 To 8
    cena(i) = Cells(3 + i, 2)
Next

Dim cena(1 To 8) As Double

Dim koll(8, 5) As Integer

Sub tt()
Dim r As Range, rr As Range
Set r = Sheets("Ëèñò1").Range("f4:h11")
Set rr = Sheets("Ëèñò2").Range("c4:e11")
rr.Value = r.Value
End Sub

Sheets("Ëèñò2").Range("c4:e11").Value = Sheets("Ëèñò1").Range("f4:h11").Value