AutoFill med variabel range

Hej


Jeg forsøger at lave et autofill i Excel med en variabel range.

Det, der er kommenteret ud, virker sådan set, men jeg kan ikke få følgende kode til at fungere:
Set SourceRange = ThisWorkbook.Worksheets("Medarbejderoplysninger").Range("A1:" & kolonne_bogstav & "1")
    Set fillRange = ThisWorkbook.Worksheets("Kombinerede data (Medarbejderoplysninger&KUK)").Range("A1:" & kolonne_bogstav & antal_raekker)
    SourceRange.AutoFill Destination:=fillRange

Jeg vil gerne gøre præcis det samme, som det, der er kommenteret, gør, men jeg vil gerne gøre det uden, brugeren kan se, hvad der sker.

Jeg får fejlen "Metoden for AutoFill for klassen Range mislykkedes" - hvad gør jeg forkert?

Resten af min kode:
    Dim antal_kolonner As Integer
    Dim antal_raekker As Integer
    Dim kolonne_bogstav As String
   
    antal_kolonner = Worksheets("Medarbejderoplysninger").UsedRange.Columns.Count
    antal_raekker = Worksheets("Medarbejderoplysninger").UsedRange.Rows.Count
   
    Sheets("Medarbejderoplysninger").Select
   
    If antal_kolonner > 26 Then
    kolonne_bogstav = Chr(Int((antal_kolonner - 1) / 26) + 64) & Chr(((antal_kolonner - 1) Mod 26) + 65)
    Else
    kolonne_bogstav = Chr(antal_kolonner + 64)
    End If
   
'    Sheets("Kombinerede data (Medarbejderoplysninger&KUK)").Select
'    Range("A1").Select
'    ActiveCell.FormulaR1C1 = "=Medarbejderoplysninger!RC"
'    Selection.AutoFill Destination:=Range("A1:" & kolonne_bogstav & "1"), Type:=xlFillDefault

    MsgBox kolonne_bogstav & antal_raekker
   
    Set SourceRange = ThisWorkbook.Worksheets("Medarbejderoplysninger").Range("A1:" & kolonne_bogstav & "1")
    Set fillRange = ThisWorkbook.Worksheets("Kombinerede data (Medarbejderoplysninger&KUK)").Range("A1:" & kolonne_bogstav & antal_raekker)
    SourceRange.AutoFill Destination:=fillRange
   
'    Range("A1:" & kolonne_bogstav & "1").Select
'    Selection.AutoFill Destination:=Range("A1:" & kolonne_bogstav & antal_raekker), Type:=xlFillDefault