formülü değil sadece değeri kopyalamak

[ecalhan]

Merhaba siteden edindiğim kodlar ile aşağıdaki makroyu oluşturdum. Ancak Kopyalanan hücreler içerisindeki formül ile kopyalanıyor ve buda diğer tarafa geçtiğinde sorun yaratıyor. acaba sadece hücrelerin değerlerini nasıl diğer tarafa aktarabilirim ?

Dim i As Long, Sat As String, Adet As Long, Month As String, s1 As Worksheet, s2 As Worksheet

Set s1 = Sheets("invoices")
Set s2 = Sheets("cost_budget")

s2.Select
Month = 1

Sat = Cells(Rows.Count, "A").End(3).Row
Application.ScreenUpdating = False

s2.Range("n21:aS" & Rows.Count).ClearContents
Sat = 20
For i = 2 To s1.Cells(Rows.Count, "A").End(3).Row
If s1.Cells(i, "a") = Month Then
Sat = Sat + 1
Adet = Adet + 1
s1.Range("b" & i & ":aS" & i).Copy Cells(Sat, "n")
End If
Next i

 

[parametre]

Sub degerleraktar()
'
'
'
Range("A28").Select
Selection.Copy
Sheets("Sayfa2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Cut Destination:=Range("A28")
Range("A39").Select
End Sub

ben a2 d8 olarak yaptım sayfa 1 de yazdıklarımı sayfa 2 ye kopyaladım ok

 

[Emir Hüseyin Çoban]

. . .

s1.Range("b" & i & ":aS" & i).Copy 

Cells(Sat, "n").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

. . .

 

[ecalhan]

Arkadaşlar desteğiniz için tşk ediyorum.