Transfer data based on value in Column using arrays

Greetings to all
I have two sheets ...... Data sheet and Results sheet
My attachment is just a sample
the original has large amounts of data

in sheets "Data".range" A8:J " & Last row
In sheets "Data". column J recap collecting the values

Please, I want to transfer data based on the values of the column J
To Sheet the results as follows
If the value of the column cells J less than or equal to 14,000
words Replaces value of is not worth

I need to use arrays as I know it is faster in dealing with large amounts of data
I need to keep formatting in the results I mean the results would be formatted as the main table in Data sheet if possible
Thank you very much to help
Regards

My dear sir, ikboy
Thank you very much for this wonderful solution
But there are many formulas in the data sheet original file do not want to transferred with the specified range
Please Is it possible to modify the code
Please see the attached
Thank you very much for the help

My dear sir, jindon
Thank you very much for this wonderful solution
Thank you very much for the help
Best and kind regards

My dear sir, jindon
Certainly a wonderful answer
And also certainly answer Mr.ikboy answer wonderful
But the need to be Modify according to latest Attachment
Thanks for all the gentlemen to help me

My dear sir, jindon
Apologized to return again
Add in the attached-defined function
But there is a difference in terms of show results in column K
With the implementation Workbooks.Add code you will notice me dear friend
Do not appear the values in column K despite copy the formula
Is there a way to change the the emergence of the values in column k
Is it possible to add something that would automatically save the workbook
Thank you very much for the help

Greetings to all
Sorry for the inconvenience to return again
After the completion of all tests on my program it shows that there is a problem
please
I do not want to add a new worksheet or add a new workbook
But I want to transfer data from the data sheet to sheet Results
Because of a problem in coordinating print the worksheet
Accept my appreciation and respect

My dear sir, jindon
Although you login hiding except that you like the moon which shines the way for us
Accept my appreciation and respect

My dear sir, jindon
Is it possible to modify the code using arrays
Accept my appreciation and respect

My dear sir, jindon
welcome
thank you very much