kayıt tablosundaki verileri başka sayfanın alt satırına kaydetme

[seha efecik]

arkadaşlar kolay gelsin ben bi calışma kitabı yaptım ekte
burda malgiriş ve data diye 2 sayfa var ve ben burda malgiriş sayfasına basit bir tablo yaptım bunu data sayfasında dolu olan satırın her zaman 1 satır altına kaydedilmesini istiyorum. (kendim satır ekleyip kaydeti biliyorum fakat bu seferde rapordaki formülleri degiştiriyor.siteden ögrendigim topla carpımla ilgili formül a2 a1000 arasını işaretliyorum satır ekleyice formülde a3den başlıyor cözemedim) bi yardımcı olsanız.mümkünse

 

[Recep İpek]

Kodlarınızı aşağıdaki şekilde değiştiriniz.

Sub Makro2()
Range("H1:X1").Select
Selection.Copy
Sheets("DATA").Select
[B]son = Sheets("DATA").Range("a65536").End(3).Row + 1[/B]
[B]Sheets("DATA").Cells(son, "a").Select[/B]
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Range("A3").Select
Sheets("MAL GİRİŞ").Select
Range("G1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Range("G2").Select
End Sub

 

[seha efecik]

teşekkürler recep bey