iki ayrı excel dosyasındaki kodu birleştirme

[bitirme]

Merhaba,
İki ayrı excel dosyalarındak kodları bir araya getirmek istiyorum. Çünkü bu dosyalarda kullanılan ortak bir matris var. Ama matrislerin konumları farklı yerde olduğu için ikinci kodu birinciye yapıştırdığımda çalışmıyor. İkinci koddaki matrisin yerini birinciye göre tanımlıyorum ama olmuyor. yardımcı olabilecek var mı?
Dosyaları yükledim. 1.dosya=kodlu bitirme   2.dosya=sıralama i-j
ikinci kod aşağıdaki gibidir. ab6:au24 te tanımlı olan matris ilk dosyada z6:ar24 te tanımlı ve aa ile değil y ile başlamaktadır. Ama çalıştırdığımda kırımızı satırda hata vermektedir.
Sub dayliht()
Range("AW4:az65536").ClearContents
For a = 1 To WorksheetFunction.Count(Range("ab6:au24"))
x = WorksheetFunction.Large(Range("ab6:au24"), a)
Cells([aw10000].End(3).Row + 1, "aw") = x
Cells([ay10000].End(3).Row + 1, "aw").Offset(0, 2) = Cells(4, Range("ab6:au24").Find(x).Column)[/b][/i]
Cells([az10000].End(3).Row + 1, "aw").Offset(0, 3) = Cells(Range("ab6:au24").Find(x).Row, "aa")
Next a
End Sub