Veri aktarmada formül korunsun

[umitumit]

Günaydın arkadaşlar
Herkese kolay gelsin...
Aşağıdaki gibi yazdığım bir macrom var. Sayfada bulunan verileri diğer sayfalara aktarmak için kullandığım bir düğme mevcut.
Ancak; verilerin bazıları SİPARİŞ sayfasına formüllerle geliyor. Aktarma yaptığım zaman formül olan hücreyi diğer sayfaya hücre değeri neyse ona göre aktarıyor. Benim istediğim ise şu; hem ilk hücredeki formül silinmesin, hemde aktarılma işlemi formülle beraber yapılsın.
Örnek dosyayı ekte gönderiyorum, ilgilenenlere şimdiden teşekkürler.


Private Sub CommandButton1_Click()
SON_SATIR = Sheets("NUMUNE").Range("A65536").End(3).Row
SATIR = ActiveCell.Row
SAY = Selection.Rows.Count
If ActiveSheet.Name = "SİPARİŞ" Then
If ActiveCell.Row < 2 Or ActiveCell.Column > 15 Then
MsgBox "BU BÖLÜMÜ AKTARAMAZSINIZ !", vbCritical, "UYARI !": Exit Sub: End If
For X = 1 To SAY
Sheets("NUMUNE").Range("A" & SON_SATIR + X & ":O" & SON_SATIR + X) = Range("A" & SATIR + X - 1 & ":O" & SATIR + X - 1).Value
Range("A" & SATIR + X - 1 & ":O" & SATIR + X - 1).Value = ""
Next
MsgBox "VERİLER NUMUNE SAYFASINA AKTARILMIŞTIR.", vbInformation
Else
If ActiveCell.Row < 2 Or ActiveCell.Column > 15 Then
MsgBox "BU BÖLÜMÜ AKTARAMAZSINIZ !", vbCritical, "UYARI !": Exit Sub: End If
For X = 1 To SAY
Sheets("NUMUNE").Range("A" & SON_SATIR + X & ":O" & SON_SATIR + X) = Range("A" & SATIR + X - 1 & ":O" & SATIR + X - 1).Value
Range("A" & SATIR + X - 1 & ":O" & SATIR + X - 1).Value = ""
Next
MsgBox "VERİLER NUMUNE SAYFASINA AKTARILMIŞTIR.", vbInformation
End If
End Sub