【ｴｸｾﾙﾏｸﾛ】ﾌﾞｯｸがあって､ﾏｸﾛをかけるとある特定のｾﾙにそのﾌﾞｯｸの名前を埋め込んでから名前を付けて保存するようにしたい｡ﾏｸﾛをかけると､そのﾌﾞｯ…

【ｴｸｾﾙﾏｸﾛ】ﾌﾞｯｸがあって､ﾏｸﾛをかけるとある特定のｾﾙにそのﾌﾞｯｸの名前を埋め込んでから名前を付けて保存するようにしたい｡

ﾏｸﾛをかけると､そのﾌﾞｯｸの名前(例･abc.xlsならば､abc)を特定のｾﾙに埋め込んでから名前を付けて保存したいのです｡

その埋め込みｾﾙは常に特定の列です｡(変数をわかりやすく入れてもらえるとありがたいです｡ﾃﾞﾌｫﾙﾄはO列です)

しかし条件があります｡

特定の列の
･1行目は見出しです｡

･2行目以降で埋め込むｾﾙ数を指定するとその分だけ上書きして埋め込みたいです｡
(その数はﾏｸﾛ内にわかりやすく変数を入れておいていただけるとありがたいです｡ﾃﾞﾌｫﾙﾄは15でお願いします)

つまり､上記の例でいえば､

O2からO16まですべてabcが埋め込まれて名前をつけて保存ﾓｰﾄﾞになるということです｡

なるべく簡単かつ､分かりやすいﾏｸﾛでお願いできたら幸いです｡

よろしくお願いいたします｡

質問文で拡張子がxlsとなっていたので､
Excel2003を前提に作成しました｡

Excel2007-2010形式(xlsx)をご使用､
もしくは混在の場合はその旨をお知らせください｡

Sub Macro1()
 
 n = 15 '### 埋め込むｾﾙ数 ###
 
 Range("O2").Select '### 埋め込む先頭ｾﾙ ###
 Range(ActiveCell, ActiveCell.Offset(n - 1, 0)).FormulaR1C1 = _
 Mid(ActiveWorkbook.Name, 1, Len(ActiveWorkbook.Name) - 4)
 
 fn = Application.GetSaveAsFilename(ActiveWorkbook.Name, "Excelﾌｧｲﾙ,*.xls")
 If fn = False Then
 MsgBox "ﾌｧｲﾙ名を指定してください" & vbCrLf & "処理を中止します"
 Else
 ActiveWorkbook.SaveAs fn
 End If

End Sub

※拡張子を除く作業は厳密に行うと複雑になってしまうので､
簡易的にﾌｧｲﾙ名の後ろ4文字を除いています｡
動作がおかしい時は､お知らせください｡