makro funtioniert nicht so wie ich es will

[Slugger]

hallöchen
es geht sich um folgendes (zitat: paul panzer)

ich habe mir mal wieder von der arbeit arbeit mit nach hause genommen ( grosser fehler )

ich habe nicht allzuviel ahnung von visual basic
habe mal versucht ein makro aufzuzeichnen in einer excel-arbeitsmappe
der grossteil funktionierte

aber nun mein erstes problem (zeile 9 und 10):
wie kenn ich im makro festlegen das der name von der tabelle in die erste zelle kopiert wird egal welcher name dort steht?

und mein zweites problem (zeilen 48 - 50):
das makro soll die datei unter gleichem namen, egal wie der name lautet, aber anderem format abspeichern

in meinem makro steht folgendes

Sub test()
'
' test Makro
'

'
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
--------------------------------------------------------------------------
    Sheets("SP-10514863").Select
    Sheets("SP-10514863").Name = "SP-10514863" [1. problem]
--------------------------------------------------------------------------
    Range("A1").Select
    ActiveSheet.Paste
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "2 ik 30°"
    Range("C1").Select
    ActiveCell.FormulaR1C1 = "7940"
    Range("D1").Select
    ActiveCell.FormulaR1C1 = "? 16,3"
    Rows("1:1").Select
    Selection.Font.Bold = True
    With Selection.Font
        .Name = "Arial"
        .Size = 16
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    Cells.Select
    Cells.EntireColumn.AutoFit
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Range("A1").Select
--------------------------------------------------------------------------
    ActiveWorkbook.SaveAs Filename:= _
        "G:\Arbeit\ki-steigungs-kontrolle\Daten\SP-10514863.xls", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False [ 2. problem]
--------------------------------------------------------------------------
End Sub

wäre euch für eure hilfe sehr verbunden

gruss
sluggi