Hücreleri kopyaladıktan sonra değerlerin değişmemesini sağlamak

[mehmeteylul]

Merhaba,

Benim sorunum kopyalamak istediğim sonuçları aldıktan sonra, değeri aldığım hücrelerin değeri değişince eski aldığım sonuçlarda değişiyor.Ama ben değişmemesini istiyorum.

Sub abc()
Dim i(14), j, k, c, l As Double
l = Sheet2.Cells(4, 2)
For c = 1 To l Step 1
    For j = 0 To 14 Step 1
    i(j) = Sheet3.Cells(c + 1, j + 1)
    Next
    For k = 0 To 14 Step 1
    Sheet6.Cells(2, k + 2) = i(k)
    Next
Sheet6.Range("R3:R47").Copy
Sheet8.Range(Cells(1, 1), Cells(1, c)).PasteSpecial (xlPasteValues)
Application.CutCopyMode = False
Next
End Sub

Yardımcı olabilirseniz sevinirim.
http://s4.dosya.tc/server5/hhn4x0/project_makro_denemeler_.xlsx.rar.html