Erro ao executar em duas maquinas simultaneamente

Ola, estou com o seguinte problema eu criei uma macro porem não sei usar o vba eu apenas iniciei uma macro, executei o que queria depois fui juntando até formar uma única.
ela consistem em abrir um arquivo de Excel “DADOS DA AGENDA” copiar as informações da “AGENDA” colar no outro arquivo que abriu, salvar e fechar. Até aqui ele executa perfeitamente (se tiverem dicas para melhorar eu aceito kkkk), porem se duas pessoas estiverem salvando ao mesmo tempo ele da erro na execução do vba e não salva nem um nem outro. Separados eles funcionam normal se cada um salvar em seu pc um de cada vez porem se por algum motivo os 2 clicarem em salvar ele da erro nos dois. Alguém sabe o que posso estar utilizando para sair dessa situação? Pensei em usar algum código de erro para quando der erro ele executar de novo ou fechar e dar uma mensagem e a pessoa salvar novamente não sei se é possível isso.
o vba q tenho é esse

Sub SALVAR()

Application.ScreenUpdating = False
Windows("AGENDA.xlsm").Activate

Workbooks.Open Filename:="\\192.168.3.152\giga net\WILIAN\teste\DADOS DA AGENDA.xlsm"

Windows("DADOS DA AGENDA.xlsm").Activate
Sheets("DADOS").Select
Range("B4:G4").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("G4").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RC[-2]-RC[-3]"
Range("G5").Select
Windows("AGENDA.xlsm").Activate
Range("F13:J13").Select
Selection.Copy
Windows("DADOS DA AGENDA.xlsm").Activate
Sheets("DADOS").Select
Range("B4:F4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Windows("AGENDA.xlsm").Activate
Range("F11:I12").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("L11").Select
ActiveCell.FormulaR1C1 = "0"
Range("F11").Select

Workbooks("DADOS DA AGENDA.xlsm").Close SaveChanges:=True
Application.ScreenUpdating = True

End Sub

de ante mão ja agradeço!

@wilian Boas,
Experimente o seguinte código melhorei um pouco para correr mais rápido e acrescentei uma parte onde se der erro ao gravar o ficheiro ele volta a tentar novamente até conseguir gravar o mesmo.

Código Salvar
Sub SALVAR()

With Application
    .ScreenUpdating = False
    .EnableEvents = False
    .DisplayAlerts = False
End With

Windows("AGENDA.xlsm").Activate

Workbooks.Open Filename:="\\192.168.3.152\giga net\WILIAN\teste\DADOS DA AGENDA.xlsm"

Workbook("DADOS DA AGENDA.xlsm").Sheets("DADOS").Range("B4:G4").Select

Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Workbook("DADOS DA AGENDA.xlsm").Sheets("DADOS").Range("G4").FormulaR1C1 = "=RC[-2]-RC[-3]"

Application.CutCopyMode = False

Windows("AGENDA.xlsm").Activate
Range("F13:J13").Select
Selection.Copy

Windows("DADOS DA AGENDA.xlsm").Sheets("DADOS").Range("B4:F4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    
Application.CutCopyMode = False
    
Windows("AGENDA.xlsm").Activate

Range("F11:I12").ClearContents


Range("L11").FormulaR1C1 = "0"

TentaOutraVez:

On Error GoTo TentaOutraVez

Workbooks("DADOS DA AGENDA.xlsm").Close SaveChanges:=True

With Application
    .ScreenUpdating = True
    .EnableEvents = True
    .DisplayAlerts = True
End With

End Sub

@AfonsoMira tudo bem,
Eu experimentei o código que vc melhorou e tive que muda o comando workbook com os sheets e o range que estava dando erro, eu pesquisei e troquei pelo “Application.Goto Workbooks” para colocar o sheets e o range na mesma linha, tirando isso achei muito bom esse up que vc fez, muito obrigado. Porem eu continuo com problema para salvar de 2 PC´s simultaneamente, agora o erro é que quando o outro pc clica em salvar junto com o meu ele cria uma copia para salvar ao invés de salvar no mesmo arquivo. Será que não tem alguma forma de forçar um erro caso tenta salvar a copia, que ai coloca um mensagem de erro e pede para tentar de novo, ou bloquear o acesso ao arquivo enquanto estiver salvando em outro pc e com isso da a mensagem também para tentar novamente. O que me sugere?