Data fra web

Prøv at sætte 'Filter' på kolonne A og tast: lines i: Søg.
Kopier og indsæt

Hej Morten
Har lige prøvet men når den opdatere dataen igen, så hopper den stadig hen på en ny linje

Hej Morten
men din idé om filter gik jeg det løst med nogle macro'er
    Sheets("Sheet2").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$Q$38").AutoFilter Field:=1, Criteria1:="=lines*", _
        Operator:=xlAnd
    Range("A2:A35").Select
    Selection.Copy
    Sheets("Sheet1").Select
    Range("A1").Select
    ActiveSheet.Paste
    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
End Sub