Sub Заполнение()

Dim i As Integer
Dim t As Integer

i = 4
t = 1

Do While Cells(i, t) <> Empty
Worksheets("Свод результатов 2 (доп) (2)").Cells(1, 1) = Worksheets("Свод результатов 2 (доп) (2)").Cells(i, t)

Worksheets("Свод результатов 2 (доп) (2)").Cells(i, t + 1) = Worksheets("Свод сценариев").Cells(7, 31) &#39;1
Worksheets("Свод результатов 2 (доп) (2)").Cells(i, t + 2) = Worksheets("Свод сценариев").Cells(7, 32) &#39;1
Worksheets("Свод результатов 2 (доп) (2)").Cells(i, t + 3) = Worksheets("Свод сценариев").Cells(7, 33) &#39;1
Worksheets("Свод результатов 2 (доп) (2)").Cells(i, t + 4) = Worksheets("Свод сценариев").Cells(7, 34) &#39;1
Worksheets("Свод результатов 2 (доп) (2)").Cells(i, t + 5) = Worksheets("Свод сценариев").Cells(7, 35) &#39;1


Worksheets("Свод результатов 2 (доп) (2)").Cells(i, t + 6) = Worksheets("Свод сценариев").Cells(8, 31) &#39;2
Worksheets("Свод результатов 2 (доп) (2)").Cells(i, t + 7) = Worksheets("Свод сценариев").Cells(8, 32) &#39;2
Worksheets("Свод результатов 2 (доп) (2)").Cells(i, t + 8) = Worksheets("Свод сценариев").Cells(8, 33) &#39;2
Worksheets("Свод результатов 2 (доп) (2)").Cells(i, t + 9) = Worksheets("Свод сценариев").Cells(8, 34) &#39;2
Worksheets("Свод результатов 2 (доп) (2)").Cells(i, t + 10) = Worksheets("Свод сценариев").Cells(8, 35) &#39;2


Worksheets("Свод результатов 2 (доп) (2)").Cells(i, t + 11) = Worksheets("Свод сценариев").Cells(9, 31) &#39;3
Worksheets("Свод результатов 2 (доп) (2)").Cells(i, t + 12) = Worksheets("Свод сценариев").Cells(9, 32) &#39;3
Worksheets("Свод результатов 2 (доп) (2)").Cells(i, t + 13) = Worksheets("Свод сценариев").Cells(9, 33) &#39;3
Worksheets("Свод результатов 2 (доп) (2)").Cells(i, t + 14) = Worksheets("Свод сценариев").Cells(9, 34) &#39;3
Worksheets("Свод результатов 2 (доп) (2)").Cells(i, t + 15) = Worksheets("Свод сценариев").Cells(9, 35) &#39;3


Worksheets("Свод результатов 2 (доп) (2)").Cells(i, t + 16) = Worksheets("Свод сценариев").Cells(10, 31) &#39;4
Worksheets("Свод результатов 2 (доп) (2)").Cells(i, t + 17) = Worksheets("Свод сценариев").Cells(10, 32) &#39;4
Worksheets("Свод результатов 2 (доп) (2)").Cells(i, t + 18) = Worksheets("Свод сценариев").Cells(10, 33) &#39;4
Worksheets("Свод результатов 2 (доп) (2)").Cells(i, t + 19) = Worksheets("Свод сценариев").Cells(10, 34) &#39;4
Worksheets("Свод результатов 2 (доп) (2)").Cells(i, t + 20) = Worksheets("Свод сценариев").Cells(10, 35) &#39;4


Worksheets("Свод результатов 2 (доп) (2)").Cells(i, t + 21) = Worksheets("Свод сценариев").Cells(11, 31) &#39;5
Worksheets("Свод результатов 2 (доп) (2)").Cells(i, t + 22) = Worksheets("Свод сценариев").Cells(11, 32) &#39;5
Worksheets("Свод результатов 2 (доп) (2)").Cells(i, t + 23) = Worksheets("Свод сценариев").Cells(11, 33) &#39;5
Worksheets("Свод результатов 2 (доп) (2)").Cells(i, t + 24) = Worksheets("Свод сценариев").Cells(11, 34) &#39;5
Worksheets("Свод результатов 2 (доп) (2)").Cells(i, t + 25) = Worksheets("Свод сценариев").Cells(11, 35) &#39;5


Worksheets("Свод результатов 2 (доп) (2)").Cells(i, t + 26) = Worksheets("Свод сценариев").Cells(12, 31) &#39;6
Worksheets("Свод результатов 2 (доп) (2)").Cells(i, t + 27) = Worksheets("Свод сценариев").Cells(12, 32) &#39;6
Worksheets("Свод результатов 2 (доп) (2)").Cells(i, t + 28) = Worksheets("Свод сценариев").Cells(12, 33) &#39;6
Worksheets("Свод результатов 2 (доп) (2)").Cells(i, t + 29) = Worksheets("Свод сценариев").Cells(12, 34) &#39;6
Worksheets("Свод результатов 2 (доп) (2)").Cells(i, t + 30) = Worksheets("Свод сценариев").Cells(12, 35) &#39;6


Worksheets("Свод результатов 2 (доп) (2)").Cells(i, t + 31) = Worksheets("Свод сценариев").Cells(13, 31) &#39;7
Worksheets("Свод результатов 2 (доп) (2)").Cells(i, t + 32) = Worksheets("Свод сценариев").Cells(13, 32) &#39;7
Worksheets("Свод результатов 2 (доп) (2)").Cells(i, t + 33) = Worksheets("Свод сценариев").Cells(13, 33) &#39;7
Worksheets("Свод результатов 2 (доп) (2)").Cells(i, t + 34) = Worksheets("Свод сценариев").Cells(13, 34) &#39;7
Worksheets("Свод результатов 2 (доп) (2)").Cells(i, t + 35) = Worksheets("Свод сценариев").Cells(13, 35) &#39;7


Worksheets("Свод результатов 2 (доп) (2)").Cells(i, t + 36) = Worksheets("Свод сценариев").Cells(14, 31) &#39;8
Worksheets("Свод результатов 2 (доп) (2)").Cells(i, t + 37) = Worksheets("Свод сценариев").Cells(14, 32) &#39;8
Worksheets("Свод результатов 2 (доп) (2)").Cells(i, t + 38) = Worksheets("Свод сценариев").Cells(14, 33) &#39;8
Worksheets("Свод результатов 2 (доп) (2)").Cells(i, t + 39) = Worksheets("Свод сценариев").Cells(14, 34) &#39;8
Worksheets("Свод результатов 2 (доп) (2)").Cells(i, t + 40) = Worksheets("Свод сценариев").Cells(14, 35) &#39;8


i = i + 1
Loop

End Sub