Make the below code work faster!!!

Hi,
I want to make this code work more faster.Actually this code is for adding rows below a already existing table.The table has conditional formatting and Data validation.
for that only I have used the copy and paste.
I have already used Application.ScreenUpdating = False
in the begining of the code.
In the below code "x" is for number of rows to be inserted.If 2 has to be inserted means then the code runs 2 times and so 2 rows are inserted.

    For ins = 1 To x
    
    Selection.Insert Shift:=xlDown
    'added 29082013
    Rows(j).Select
    Selection.Copy
    Rows(i).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.ClearContents
    'added 29082013
   
    Next ins

Originally Posted by Winon

Hello devpp,

With your Application.ScreenUpdating= False, try adding Application.Calculation= xlCalculationManual,and then at the end of your Code, with Application.ScreenUpdating = True, add also Application.Calculation = xlCalculationAutomatic.

Actually I cant add xl calculation as manual as there is some calculations involved when the rows are added in another sheet.so is there any other alternative?