Karşılaştırma sayfalarını birleştirme

[Reason]

Selamlar öncelikle,

Aşağıdaki makroda bir hatam var. Arattığım hücreyi gidip bir sonraki sayfada bulup; arattığım hücrenin 8 satır sonrasına yapıştırmasını istiyorum. Ancak başlangıç satırını diğer sayfada arattırmaktansa diğer sayfada seliçi olan hücrenin iki sonrası hücreyi kopyalıyor.

Yardımlarınız için şimdiden teşekküler

Sub Makro4()
'
' Makro4 Makro
'
' Klavye Kısayolu: Ctrl+ÜstKrkt+I
'
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.Copy
ActiveSheet.Next.Select
Cells.Find(What:="A1", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(0, 1).Range("A1").Select
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Previous.Select
ActiveCell.Offset(0, 8).Range("A1").Select
ActiveSheet.Paste
End Sub

 

[Levent Menteşoğlu]

Sorunuzu bir örnekle açıklarmısınız.