Seçili satırları aktarma

[DeliBalta58]

Akaryakıt isimli 5 sayfadan oluşan bir dosyam var.
Sayfa1 de motorin bilgileri, Sayfa 2 de Benzin dağılım bilgileri var.

Sayfa1 de iken bir buton vasıtasıyla aktarmak istediğim başlagıç satırının numarasını açılan inputbox penceresine girilecek tamam dedikten sonra alınacak son satır numarasını ikinci inputbox penceresi girilip tamam deyince Sayfa1 deki veriler yeni sıra no verilerek sütun sıraları değişmeden sayfa4 de aktarılacak açılacak.
SAynı işlem sayfa 2 de gerçekleşecek ama burdaki veriler sayfa5 e aktarılacak.
Dosyam ekte. yardımcı olursanız memnun olurum. Teşekkürler

Eski verilerim yerinde kalacak. Sadece kopyalanacak.

 

[Orion1]

Dosyanız ekte.

Sub aktar()
Dim ilksat, sonsat
Sheets("Sayfa1").Select
Application.ScreenUpdating = False
Sheets("Sayfa5").Range("A2:I65536").ClearContents
ilksat = InputBox("İlk Satırı Giriniz:", "SAYFA5'e AKTARMA")
If Not IsNumeric(ilksat) Then Exit Sub
sonsat = InputBox("Son Satırı Giriniz:", "SAYFA5'e AKTARMA")
If Not IsNumeric(sonsat) Then Exit Sub
Range("A" & ilksat & ":I" & sonsat).Copy
Sheets("Sayfa5").Range("A2").PasteSpecial xlPasteValuesAndNumberFormats
Application.CutCopyMode = False
Sheets("Sayfa5").Select
Range("A1").Select
Application.ScreenUpdating = True
MsgBox "Aktarma tamamlandı", vbOKOnly + vbInformation, Application.UserName
End Sub

 

[DeliBalta58]

Teşekkürler elinize sağlık

 

[Orion1]

Teşekkürler elinize sağlık

Rica ederim.
İyi çalışmalar.