Kopiëren van cel met formule naar ander blad

[Meaurk]

Hoi!

Ik ben momenteel bezig met een document waarbij ik een soort formulier heb gemaakt. In dit formulier komen (volgens mij noodgedwongen) formules te staan:

=IF($C5="";"";IF($X5="";0;IF($X5="?";1;2)))

en

=IF($U5="";"";NETWORKDAYS($E5;$U5))

Ik heb een wat uitgebreide macro geschreven/gemaakt waarmee de inhoud van het formulier in het overzicht wordt geplaatst, waarschijnlijk kan dit veel makkelijker en korter maar helaas ben ik niet zo handig met de code's.
De macro:

Sub NCRtoevoegen()
    
vWeetzeker = MsgBox("Weet je zeker dat je deze NCR wilt toevoegen aan het overzicht?", vbInformation + vbYesNo, "Bevestiging")
  If vWeetzeker = vbYes Then
  
'De volgende velden worden gekopieerd van het ene naar de andere blad.
    Sheets("NCR registratie").Range("E7").Copy
        Sheets("NCR overzicht").Range("C6").Insert
    Sheets("NCR registratie").Range("E9").Copy
        Sheets("NCR overzicht").Range("D6").Insert
    Sheets("NCR registratie").Range("E11").Copy
        Sheets("NCR overzicht").Range("E6").Insert
    Sheets("NCR registratie").Range("E13").Copy
        Sheets("NCR overzicht").Range("F6").Insert
    Sheets("NCR registratie").Range("E15").Copy
        Sheets("NCR overzicht").Range("G6").Insert
    Sheets("NCR registratie").Range("E17").Copy
        Sheets("NCR overzicht").Range("H6").Insert
    Sheets("NCR registratie").Range("E19").Copy
        Sheets("NCR overzicht").Range("I6").Insert
    Sheets("NCR registratie").Range("E21").Copy
        Sheets("NCR overzicht").Range("J6").Insert
    Sheets("NCR registratie").Range("E23").Copy
        Sheets("NCR overzicht").Range("K6").Insert
    Sheets("NCR registratie").Range("E25").Copy
        Sheets("NCR overzicht").Range("L6").Insert
    Sheets("NCR registratie").Range("E27").Copy
        Sheets("NCR overzicht").Range("M6").Insert
    Sheets("NCR registratie").Range("E29").Copy
        Sheets("NCR overzicht").Range("N6").Insert
    Sheets("NCR registratie").Range("E31").Copy
        Sheets("NCR overzicht").Range("O6").Insert
    Sheets("NCR registratie").Range("E33").Copy
        Sheets("NCR overzicht").Range("P6").Insert
    Sheets("NCR registratie").Range("E35").Copy
        Sheets("NCR overzicht").Range("Q6").Insert
    Sheets("NCR registratie").Range("E37").Copy
        Sheets("NCR overzicht").Range("R6").Insert
    Sheets("NCR registratie").Range("E39").Copy
        Sheets("NCR overzicht").Range("S6").Insert
    Sheets("NCR registratie").Range("E41").Copy
        Sheets("NCR overzicht").Range("T6").Insert
       
'De volgende velden worden niet ingevuld, maar moeten toch worden gekopieerd om de opmaak te behouden.
    Sheets("NCR registratie").Range("E50").Copy
        Sheets("NCR overzicht").Range("B6").Insert
    Sheets("NCR registratie").Range("E52").Copy
        Sheets("NCR overzicht").Range("U6").Insert
    Sheets("NCR registratie").Range("E54").Copy
        Sheets("NCR overzicht").Range("V6").Insert
    Sheets("NCR registratie").Range("E56").Copy
        Sheets("NCR overzicht").Range("W6").Insert
    Sheets("NCR registratie").Range("E58").Copy
        Sheets("NCR overzicht").Range("X6").Insert
    Sheets("NCR registratie").Range("E60").Copy
        Sheets("NCR overzicht").Range("Y6").Insert
    Sheets("NCR registratie").Range("E62").Copy
        Sheets("NCR overzicht").Range("Z6").Insert
    Sheets("NCR registratie").Range("E66").Copy
        Sheets("NCR overzicht").Range("AB6").Insert
    Sheets("NCR registratie").Range("E68").Copy
        Sheets("NCR overzicht").Range("AC6").Insert
    Sheets("NCR registratie").Range("E70").Copy
        Sheets("NCR overzicht").Range("AD6").Insert
        
'Hiermee worden de zojuist ingevulde velden in het formulier leeggemaakt.
    Range("E7,E9,E11,E13,E15,E17,E19,E21,E23,E25,E27,E31,E33,E35,E37,E39,E41").Select
        Selection.ClearContents
      
'Hiermee wordt het overzicht gesorteerd van laag naar hoog.
    With ActiveWorkbook.Worksheets("NCR overzicht").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Exit Sub
  End If
End Sub

Bij het kopiëren van de cellen met de genoemde formules gaan de formules 'kapot'. Er komt dan in plaats van de cel nummers "REF!" te staan. Ik heb al geprobeerd om met $ te werken, dit lukt alleen als ik beide waarden (de kolom en de rij) vastzet, helaas mag de rij niet vast komen te staan. Hoe kan ik dit oplossen?

Alvast heel erg bedankt!