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