Başlık isminden sütunu bulup kopyalamak

[Mesafe]

Başlık isimleri sabit ancak zaman zaman kolonların yerlerinin değişebildiği bir tablodan başlık adına bakarak bir sütunu bulup, kopyalayıp, diğer sayfaya yapıştıracak bir makro yazılabilir mi ?

 

[hamitcan]

Sub Kopyala()
 b = WorksheetFunction.Match("Kategori", [a1:z1], 0)
 Columns(b).Copy Sayfa2.Columns("e")
End Sub

 

[Mesafe]

Hocam çok teşekkür ederim.
Elinize, emeğinize sağlık