Sütun başlıklarına göre iki kitaptan aktarma yapma

[blazer2004]

Merhaba arkadaşlar aşağıdaki kod satırları ile iki farklı excel dosyasından verilerin başlıklarına göre altaki değerlerini aktarıyorum.Ancak bir sütun başlığı var ikinci sütunda başlık yok ise üçüncü sütuna geçmiyor işlemi yarım bitiriyor.Sütun başlıkları sıralı sütunlarda ise problemsiz çalışıyor.Acaba nerde yanlış yapıyorum yardımcı olurmusunuz.

dosya = Application.GetOpenFilename
If dosya = False Then
MsgBox "dosya seçilmedi"
Exit Sub
End If
Set ktp2 = Workbooks.Open(dosya)
Set ktp1 = ThisWorkbook

Set s1 = ktp1.Sheets(1) 'this'
Set s2 = ktp2.Sheets(5) 'open'


s2.Select
a = 8: b = 1
30
If s1.Cells(a, b) <> "" Then
s2.Cells.Find(what:=s1.Cells(a, b).Value).Select
32
ActiveCell.Offset(1, 0).Select
If ActiveCell <> "" Then
a = a + 1
ActiveCell.Copy s1.Cells(a, b)
GoTo 32
End If
a = 8
b = b + 1
GoTo 30


End If

 

[blazer2004]

arkadaşlar yardım edermisiniz bir türlü çözüm bulamadım.Eğer buna uygun elinizde örnekler varsa gönderirseniz onlara uyumlu yaparım lütfen.