"Insert method of Range class failed" in Shared mode

OK, thanks

Please help me with my code also I am receiving same error message.

Private Sub Ipasok2_Click()
Worksheets("sheet1").Range("B59").Value = 1
Dim InsertVar(9)
For i = 1 To 9
InsertVar(i) = Worksheets("sheet1").Cells(57, 1 + i).Value
Next
Worksheets("sheet3").Range("a5").EntireRow.Insert
For i = 1 To 5
Worksheets("sheet3").Cells(5, i).Value = InsertVar(i)
Next
For i = 6 To 7
Worksheets("sheet3").Cells(5, i + 6).Value = InsertVar(i)
Next
For i = 8 To 9
Worksheets("sheet3").Cells(5, i + 8).Value = InsertVar(i)
Next
'Worksheets("sheet3").Select
'ActiveSheet.Range("ComData").Select
Worksheets("Sheet3").Range("ComData").sort _
Key1:=Worksheets("Sheet3").Range("A4")
'ActiveCell.Selection.sort Key1:=Range("a4"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Worksheets("sheet1").Select
End Sub