Yes, its the latter option. I want the macro to detect how many stocks I have every time I run the macro, so the number of stocks is "unknown".

I tried to implement you solution, but I keep getting the errormessage: "Run-time error '438': Object doesn't support this property or method".

Maybe I'm doing it wrong?

Sub LoginNordnet()
'Range("C3:F7").Clear
    'Inn med navnet på aksjene
    'Range("C2").Value = "Kurs"
    
  Set IE = CreateObject("InternetExplorer.Application")
        
        With IE
        .Visible = False
        .Navigate "https://www.nordnet.no/mux/login/startNO.html?cmpi=start-loggain"
        Do Until .ReadyState = 4
            DoEvents
        Loop
        .Document.all.Item("input1").Value = "mlcinvest"
        .Document.all.Item("pContent").Value = "1MillionDollaz$"
        .Document.all.Item("login_btn").Click
         Application.Wait DateAdd("s", 2, Now)
        .Navigate "https://www.nordnet.no/mux/web/depa/mindepa/depaoversikt.html"
        
        'Vent til eksplorer har loadet ferdig
        Do Until .ReadyState = 4
            DoEvents
        Loop
        
        Dim dd As Single, de As Single, df As Single, dg As Single, dh As Single
        
        NoStocks = IE.Document.getElementById("tr1").Table.Rows.Length + 1

    For I = 1 To NoStocks

    Range("Q" & 4 + I).Value = dd = IE.Document.getElementById("tr" & I).Cells(6).innerText

    Next I
        
        'Hent og lagre kursen (celle 6 i tabbellen "tr1" -> "tr5")
        'dd = IE.Document.getElementById("tr1").Cells(6).innerText
        'de = IE.Document.getElementById("tr2").Cells(6).innerText
        'df = IE.Document.getElementById("tr3").Cells(6).innerText
        'dg = IE.Document.getElementById("tr4").Cells(6).innerText
        'dh = IE.Document.getElementById("tr5").Cells(6).innerText
              
        End With
      
        'Skriv ut den lagrede verdien (kurs) i celle Q5 - Q9
        Range("Q5").Value = dd
        Range("Q6").Value = de
        Range("Q7").Value = df
        Range("Q8").Value = dg
        'Range("Q9").Value = dh
        
        'Formatterer cellene slik at de ikke er lagret som text, men tall (må da finnes bedre metoder?)
        'Range("A3").CurrentRegion.EntireColumn.AutoFit
        Range("Q5:Q9").NumberFormat = "0.00"
        
    ' Rydd opp og lukk explorer
    Application.StatusBar = ""
    IE.Quit
    Set IE = Nothing
End Sub