makroda değişiklik(aktar makrosunu değişik sayfalarda kullanmak)

[Erdinç FIRTINA]

Değerli arkadaşlar,
Veri sayfasındaki tablodaki verileri makro ile diğer sayfalara almak istiyorum.
Ancak verilerin bulunduğu sayfa sabit kalmak kaydı ile makronun değişik sayfalarda çalışmasını istiyorum. Böyle bir şey olabilir mi?

Benim düşündüğüm ve makroda çözmeye çalıştığım aşağıda belirttiğim satırla ilgilidir diye düşünüyorum ancak nasıl çözebileceğimi bilemiyorum.

Yardım ederseniz sevinirim. Şimdiden teşekkürler!!!

Değişeceğini düşündüğüm satır aşağıda. Ama nasıl değiştireceğimi bilemedim.
Kimbilir belki de düşündüğüm gibi olmayabilir de.

If WorksheetFunction.CountIf([H:H], ARANAN) = 0 Then GoTo SON


Sub AKTAR()
ARANAN = InputBox("AKTARILACAK İSMİ GİRİNİZ !")
If ARANAN = "" Or False Then Exit Sub
ARANAN = UCase(Replace(Replace(ARANAN, "i", "İ"), "ı", "I"))
If WorksheetFunction.CountIf([H:H], ARANAN) = 0 Then GoTo SON
[M2:R65536].ClearContents
SATIR = 1
For X = 2 To [F65536].End(3).Row
If UCase(Replace(Replace(Cells(X, "H"), "i", "İ"), "ı", "I")) = ARANAN Then
SATIR = SATIR + 1
Cells(SATIR, "M") = Cells(X, "F")
Cells(SATIR, "N") = Cells(X, "G")
Cells(SATIR, "O") = Cells(X, "H")
Cells(SATIR, "P") = Cells(X, "I")
Cells(SATIR, "Q") = Cells(X, "J")
Cells(SATIR, "R") = Cells(X, "K")
Cells(SATIR, "S") = Cells(X, "L")

End If
Next X
MsgBox "AKTARMA İŞLEMİ TAMAMLANMIŞTIR.", vbInformation
Exit Sub
SON:
MsgBox "AKTARILACAK KAYIT BULUNAMAMIŞTIR.", vbExclamation
End Sub