zellenwerte übertragen

Sub NeuesBlatt()
Worksheets.Add After:=Sheets(Sheets.Count)
Range("H14").Formula = _
"=" & Worksheets(Sheets.Count - 1).Name & "!h51"
End Sub

mit dem ich Cellenwerte von einer tabelle in ein neu eingefügtes Tabellenblatt übernehme.
Jetzt ist es im diesem Fall so , das er mir eine Standart Tabelle öffnet ich möchte aber gerne eine Andere Tabelle öffnen ( "Rechnung.xls ")
wie muss ich dieses Makro umstellen ?

Danke