Speicher einer Tabelle

ich möchte eine einzelne Tabelle aus meiner Arbeitsmappe Speichern.
Das ganze soll unter den Namen zweier Zelleninhalte gespeichert werden.
Mein Makro speichert mir das Blatt aber nur unter einen Zelleninhalt.
Was habe ich falsch gemacht?
Kann mir jemand ein Tippgeben?

Sub InhaltSpeichern()
Dim KomNr As String
Dim Name As String
Dim sDateiName$
Application.ScreenUpdating = False
sDateiName = ThisWorkbook.Path & "\" & KomNr & "" & Name & ".xls"
KomNr = Range("D4").Value
Name = Range("AD9").Value

ActiveSheet.Copy
sPath = "C:\Kommissionsnummern 2002\Inhalt\"

ActiveWorkbook.SaveAs sPath & KomNr & Name & _
".xls"


End Sub

Mit freundlichen Grüßen Thomas H.