Why not just select A1:X1000, and do Insert > Name > Create, Top row?


And if you particularly want to do it via macro, record it.