Kopyala yapıştırda bir alt satıra geçme

[Arslan3535]

ekte bir tablom var cocugum ,ç,n hazırladım hergün testlerini giriyor makroda girdiği testleri toplam sayfaya atmak istiyorum ama her defasında üstüne kopyalıyor alt alta nasıl kopyalama yaptırabilirim
makro kodum şöyle

Sub kaydet()
'
' kaydet Makro
'

'
Selection.Copy
Sheets("Toplam").Select
Range("B2:B8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Günlük").Select
Range("A2:F7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Toplam").Select
Range("C2:H7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Günlük").Select
Range("A10:F10").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Toplam").Select
Range("C8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B2").Select
Sheets("Günlük").Select
Range("B27").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("B10:F10").Select
Selection.ClearContents
Range("B11:F11").Select
Selection.ClearContents
Range("A1").Select
End Sub

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki kodlar ile yapabilirsiniz.

Sub kaydet()
    Dim syfToplam As Worksheet
    Dim syfGunluk As Worksheet
    Dim Say As Long
    Set syfGunluk = Worksheets("Günlük")
    Set syfToplam = Worksheets("Toplam")
    Say = syfToplam.Cells(Rows.Count, "B").End(3).Row
   
    Selection.Copy
   
    syfToplam.Range("B" & Say).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    syfGunluk.Range("A2:F7").Copy
    syfToplam.Range("C" & Say).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    syfGunluk.Range("A10:F10").Copy
    syfToplam.Range("C" & Say + 6).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    syfGunluk.Range("B2:D7, B10:F11").ClearContents
End Sub

Selection.Copy kısmını da adres yazarak düzeltmek isterdim ama ilk seçim yaptığınız hücre adreslerini bilmediğim için değiştiremedim.
Onu da siz değiştirin yada ilk seçtiğiniz adresi söyleyin ben düzelteyim.