【エクセルマクロ】ブックがあって、マクロをかけるとある特定のセルにそのブックの名前を埋め込んでから名前を付けて保存するようにしたい。

質問文で拡張子が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文字を除いています。
　動作がおかしい時は、お知らせください。