Fej i kode: Run-time 424

Hej Jeg har nedenstående kode (uddrag - Se Afsnit KODE1), som går i fejl.

Fejl opstår i denne del af koden 'For coutGantMåned = 10 To GantKortMåned.Range("A65536").End(xlUp).Row' Når koden køre og jeg for run-time 424, så bliver denne linje gul, og viser værdien 0.

Jeg har en tabel, som starter i række 10, kolonne A.

Hvad har jeg gjort forkert.

NB: Bemærk at jeg har en kode før denne som ser sådan her ud (Se under afsnit KODE2)

AFSNIT KODE1:

Dim coutGantMåned As Integer

For coutGantMåned = 10 To GantKortMåned.Range("A65536").End(xlUp).Row

        Set curcellGant = GantKortMåned.Cells(coutGantMåned, 1)

            If curcellGant.Text = Me.ListBox1.Value Then

                curcellGant.Offset(0, 0).Value = txtRegNr.Value
                curcellGant.Offset(0, 1).Value = chbAktiv.Value
                curcellGant.Offset(0, 2).Value = cmbEjer.Value
                curcellGant.Offset(0, 3).Value = cmbSted.Value
                'curcellGant.Offset(0, 4).Value = txtLeasingStart.Value
                'curcellGant.Offset(0, 7).Value = txtLeasingSlut.Value
                curcellGant.Offset(0, 10).Value = txtBilModel.Value
                curcellGant.Offset(0, 11).Value = txtChauffør.Value

AFSNIT KODE2 (uddrag af kode):

Dim counter As Integer

   
    For counter = 2 To Data.Range("A65536").End(xlUp).Row
        Set curcell = Data.Cells(counter, 1)