als HTML speichern mit Bereichsangabe

Private Sub cmdHTML_Click()
Dim start, ende
start = Range("K6").Value
ende = Range("K7").Value
Sheets("Statistiken").Range("B" & start, "H" & ende).Select
Dateiname = Range("J1").Value
With ActiveWorkbook.PublishObjects("09stats_12209")
.HtmlType = xlHtmlStatic
.Filename = Dateiname
.Publish (True)
.AutoRepublish = False
End With
End Sub