エクセル家系図と三日坊主日記

行の多い2007のシートへシートコピーをして、マクロを開けてマクロをもコピーして挑戦したのですが、マクロは見るのも初めてなので、うまく動作しません。（当然ですか）
また、
・実行時エラー'1004’：BorderクラスのWeightプロパティを設定できませんの表示あり
'兄弟
If Left(CZ, 1) = "3" Then
⇒・・・・・
With Range(Cells(Y, LX), Cells(Y - 1, LX)).Borders(xlEdgeRight)
【.Weight = xlMedium】←この部分です
End With
わからないことだらけで、申し訳ないと思います
ゆっくり取り組みます
よろしくお願いします

前のコメントを修正していますので参照してください
VBAは【ツール】【マクロ】【V...B...E...
】で編集できます [module1］

私のは2007でした
理解はできるのですが、中身はまるっきし、わかりませんので、操作方法などアドバイスよろしくお願いします

列数についてエクセル2003までは、仕様で256列が最高になっています。エクセル2007以降は16,384列までできるようですが、私が使っているバージョンが2003ですので256列の制限があり、それ以上は不可能です。
新田さんが使っているバージョンが2007以上でしら、保存形式を変えることで、（Excelマクロ有効ブック 拡張子 xlsm）
ひょっとして可能かも知れません。（VBAの変更も必要です　 i + 4 * j > 255の 255を変更）
'書き込み有無確認修正
i = X + SX * 4 * j
Do
If i + 4 * j 255 Then GoTo retuover
If Cells(Y, i) = CC Then Exit Do
If ko = 0 Then
If Cells(Y, i) = "" And _
((zz <> 1) Or Cells(Y, i + 4 * j) = "") Then Exit Do
Else
If Cells(Y, i) = "" And _
((zz <> 1) Or Cells(Y, i + 4 * j) = "") _
And Cells(Y + 10, i) = "" And _
(Cells(Y + 10, i + 4 * j) = "") Then Exit Do
End If
i = i + 4 * j
Loop

早速の返答大変有難うございます
入力打ち込みが多いので、時間があります、対応をよろしくお願いします。
作成は頭の中でのイメージですか、流石です。できた表は美しいですね。私は使いこなせるように頑張ります。
お願いの追加です、配偶者の兄弟を加えるとセンター位置を操作しても、作図されない漏れの人が出来ます。印刷を考慮しての範囲と考えますが、全体表のワイドをさらに広げることは可能ですか？
今の世代の子供の数は少ないのですが一世代が多いため、発生します、よろしくお願いします

新田さんはじめまして
作図に関して10名が最高になっています。
コード30番台が兄弟になっており、VBAでは30番台を兄弟と判断し作図しています。40番台を空けていますので、IF文の条件を変更すれば可能です。
ですが、フローチャートを書かずに頭の中でイメージして作っていますので（老化防止のための頭の体操です）、ちょっと時間をいただき、頭がクリアになったとき対応したいと思います。

HIRO様
初めまして。
家系図エクセル、昨日9/26にダウンロードさせていただきました。本日、叔父から手書きの未完の家系図を入手し、入力を始めました。ソフトは相当検証し、バージョンをアップされてのでしょう！作成ソフトは素晴らしいものですね。家系図作成のボタンをクイックすると驚きの作図です。また入力違いをすると線が途切れたり、一目瞭然です。是非活用させて頂きます、大変有難うございます。お願いがあります、兄弟は10名が最高の設定と思うのですが、父方の兄弟が12名おります（いまだ全員健在）、入力方法で対応が可能ですか？叔母2名分は飛ばして、続けます。兄弟12名バージョンのソフト作成をお願いできませんでしょうか？わからないことがあったらいろいろと教えて下さい。よろしくお願いします。