"Insert method of Range class failed" in Shared mode

Hi,

I get a "run-time error '1004':Insert method of Range class failed" message when I run this macro in workbook shared mode. It works fine in normal mode.

Can you help me ?
Thanks,
Bart

Sub DataInputFacBXL()
'
' Macro recorded 04/11/2010 by De Hertogh Bart
'

'
    Application.ScreenUpdating = False
    Range("B15:I15").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("DataSheet").Select
    Range("A2:H2").Select
    Selection.Insert Shift:=xlDown
    Selection.Interior.ColorIndex = xlNone
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
        :=xlBetween
        .IgnoreBlank = True
        .InCellDropdown = True
        .ShowInput = True
        .ShowError = True
    End With
    Sheets("TASK Input").Select
    Range("D15:H15").ClearContents
    Range("D15").Select
    ActiveCell.Select
    Application.ScreenUpdating = True
    
End Sub