do while loop for range of cells

Hi,

Currently I have following code:

x = 139
Do While Cells(x, 1) <> ""
Cells(x, 2).Value = Cells(26, 6)
Cells(x, 3).Value = Cells(26, 7)
Cells(x, 4).Value = Cells(26, 8)
Cells(x, 5).Value = Cells(26, 9)
Cells(x, 6).Value = Cells(26, 10)
Cells(x, 7).Value = Cells(26, 11)
Cells(x, 8).Value = Cells(26, 12)
Cells(x, 9).Value = Cells(26, 13)
Cells(x, 10).Value = Cells(26, 14)
Cells(x, 11).Value = Cells(26, 15)
Cells(x, 12).Value = Cells(26, 16)
Cells(x, 13).Value = Cells(26, 17)
Cells(x, 14).Value = Cells(26, 18)
Cells(x, 15).Value = Cells(26, 19)
Cells(x, 16).Value = Cells(26, 20)
Cells(x, 17).Value = Cells(26, 21)
Cells(x, 18).Value = Cells(26, 22)
Cells(x, 19).Value = Cells(26, 23)
Cells(x, 20).Value = Cells(26, 24)
x = x + 1
Loop

Problem: I work with random values, which makes this "copy-paste story" rather long (time).

How can I copy a value range? and paste it ? If this would work, it would make our macro like 18 times faster

Any advice is welcome!