Sth like this maybe? Watch for linewraps!
Record a macro when performing the steps Data>Import External Data>New Web
Query
Sub HentSvenskPris()
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;
http://www.nordpool.com/marketinfo/...ot.cgi?interval=last8&ccurrency=nok&type=html"
_
, Destination:=Range("A1"))
.Name = "elspot.cgi?interval=last8&ccurrency=nok&type=html"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "4"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.Refresh BackgroundQuery:=False
End With
End Sub