Hallo zusammen

Ich habe ein Excel-File, auf welches von verschiedenen Computern zugegriffen und von den Benutzern auch geändert werden soll. Die neuen Einträge werden immer in der zweiten Zeile getätigt und durch einen Klick auf eine Schaltfläche eine Zeile nach unten verschoben, damit die "Eingabezeile" wieder frei ist. Das klappt alles wunderbar auf einem Computer. 

Dann gebe ich das File zur gemeinsamen Bearbeitung frei, leider werden dann die Anpassungen nicht "life" übernommen, was in diesem Fall extrem wichtig ist.

Damit die Änderungen von Computer 1 auch auf Computer 2 umgehend ersichtlich sind und nicht überschrieben werden, habe ich im Makro der Schaltfläche eine RefreshAll einfügen wollen. Leider schluckt das Makro meine Idee nicht. 

Was mache ich falsch?

Gibt es eine bessere herangehensweise?

Unten seht ihr den Code.

Die Zeile unmittelbar nach "' Aktualisieren" ist das Problem.

Besten Dank für die Hilfe.

Lg staeme

Sub Finn_Comfort_Übertragen()

' Aktualisieren

    Workbooks("Warenwirtschaft.xlsm").RefreshAll
'
'  Schaltfläche1_Klicken Makro
'
'   Oben Zeile einfügen

    Rows("2:2").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("2:2").Font.Bold = False
    Range("L2").Select
    
'   Button nach oben verschieben

    With Worksheets("Finn Comfort intern")
      With .Shapes("Schaltfläche 1")
        .Top = .TopLeftCell.Offset(-1, 0).Top
      End With
    End With
    
'   Daten in Bestellliste kopieren

    Sheets("Finn Comfort").Select
    Rows("2:2").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Sheets("Finn Comfort intern").Select
    Range("D3:G3").Select
    Selection.Copy
    Sheets("Finn Comfort").Select
    Range("A2").Select
    ActiveSheet.Paste
    Sheets("Finn Comfort intern").Select
    
    ActiveWorkbook.Save
    
End Sub