Çalışma Sayfasındaki satırları başka bir sayfaya kopyalama

[myway]

Merhaba;

Eklemiş olduğum dosyaya benzer bir excel dosyam var. Çalışma kitabındaki sayfaları ( A, B, C, D, E, .... DİYE GİDEN ) 4. satırından başlayarak, veri içeren son satıra kadar seçip "VERİ" adındaki sayfaya kopyalamak istiyorum.

Ekteki dosyada örneklediğim gibi. Yardımcı olursanız memnun olacağım.. Teşekkürler.

 

[Orion1]

Dosyanız ektedir.

Sub yapistir59()
Dim sh As Worksheet, sonsat1 As Long, sonsat2 As Long
Sheets("VERİ").Select
Range("A:J").Clear
Application.ScreenUpdating = False
For Each sh In Worksheets
    If sh.Name <> "VERİ" Then
        sh.AutoFilterMode = False
        sonsat1 = sh.Cells(Rows.Count, "C").End(xlUp).Row
        sonsat2 = Cells(Rows.Count, "C").End(xlUp).Row + 1
        sh.Range("B4:J" & sonsat1).Copy Range("B" & sonsat2)
    End If
Next
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[myway]

Çok teşekkür ederim.

 

[Orion1]

Çok teşekkür ederim.

Rica ederim.
İyi çalışmalar.