Şöyle bir makro buldum ve denedim işe yarıyor. Kodu kopyalamak istediğiniz tabloya göre düzenleyin. 2. bir sekme açın ve makroyu çalıştırın

Sub kopyala()
Sheets("Sayfa1").Range("A1:C10").Copy
Sheets("Sayfa2").Range("A1").PasteSpecial
Application.CutCopyMode = False
MsgBox "Kopyalama Yapıldı..!!"
End Sub