Slette/indsætte nogle rækker med VBA

Hej

Jeg har et regne ark hvor jeg gerne vil kunne indsætte og slette noget af en linje. Har fundet følgende VBA programering på eksperten.dk som fint løser det problem


Sub CopytoNextRow()
Dim nyRække As Long, CC As Object
    nyRække = ActiveCell.Row + 1
   
With Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 25))
    .Copy
    .Insert Shift:=xlDown
    Application.CutCopyMode = False
   
    For Each CC In Range("A" & nyRække & ":Y" & nyRække).Cells
        If CC.HasFormula = False Then
            CC.Value = ""
        End If
    Next
   
End With

End Sub

Jeg har så selv lavet ud fra overstående en VBA som kan slette en given linje

Sub Sletrække()
Dim Sletrække As Long, CC As Object
    Sletrække = ActiveCell.Row
   
With Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 25))
    .Delete
End With
End Sub

Og nu til mit problem, på ark 2 bruger jeg noget information fra ark 1, når jeg ændre sletter eller indsætter kommer jeg til at mangle informationerne fra ark 1, det er lige som om at hvis jeg indsætter på linje 14, så kommer det der er skrevet ikke med om på ark2, ligeledes hvis jeg sletter, så mangler den reference på ark 2, nogle gode ideer til hvordan jeg løser dette?

min linje på ark 2 ser således ud:
=HVIS('Ark1'!R14="X";'Ark1'!$L14;"")

PFT
Henrik