Copy data from one sheet to another sheet quickly.

[harzer]

Hello everyone,
I have the sheet named: "B_D" which contains very important data, it is composed of 10 columns and a very important and variable number of rows.
I am looking for a code that could very quickly copy all the data from the "B_D" sheet to the "Result" sheet.
For your information, the "A" column of the "B_D" sheet contains unique cells, I communicate this information to you, so you can orient yourself for the use of a dictionary in combination with UBound(Ary, 1), for build faster vba code.
I remain at your disposal for any additional information.
Good for you.

Arbre Généalogique.xlsm
	A	B	C	D	E	F	G	H	I	J
1	Jeune	Père	Mère	Eleveur	Volière	Cage	Né(e)	Tours	Information	Elevage
2	876-054/2004 F	856-061/2002 M	856-047/2002 F	Martens S	5B	30	16-04-2004	4T	Femelle
3	876-025/2006 F	AC10-008/2010 M	876-027/2005 F	Martens S	5B	30	15-04-2006	4T	Femelle
4	SC14-028/2006 F	235-096/2005 M	SC14-005/2004 F	Martens S	5B	30	15-04-2006	4T	Femelle
5	SC14-041/2006 M	SC14-045/2004 M	SC14-009/2004 F	Martens S	5B	30	15-04-2006	4T	Mâle
6	SC14-068/2006 M	CT10-075/2005 M	SC14-020/2005 F	Martens S	5B	30	15-04-2006	4T	Mâle
7	0811-076/2006 M	0811-055/2005 M	0811-044/2005 F	Martens S	5B	30	15-04-2006	4T	Mâle
8	SC14-011/2007 F	CT10-075/2005 M	SC14-032/2005 F	Martens S	5B	30	15-04-2007	4T	Femelle
9	SC55-014/2007 M	SC14-029/2006 M	SC14-020/2006 F	Martens S	5B	30	15-04-2007	4T	Mâle
10	876-022/2007 M	856-048/2006 M	856-166/2006 F	Martens S	5B	30	15-04-2007	4T	Mâle
11	876-033/2007 F	856-053/2006 M	876-054/2004 F	Martens S	5B	30	15-04-2007	4T	Femelle
12	SC14-040/2007 M	235-096/2005 M	SC14-020/2005 F	Martens S	5B	30	15-04-2007	4T	Mâle
13	876-049/2007 F	856-048/2006 M	876-025/2006 F	Martens S	5B	30	15-04-2007	4T	Femelle
14	SC14-067/2007 F	SC14-068/2006 M	SC14-019/2006 F	Martens S	5B	30	15-04-2007	4T	Femelle
15	SC14-068/2007 F	SC14-068/2006 M	SC14-019/2006 F	Martens S	5B	30	15-04-2007	4T	Femelle
16	SC55-075/2007 F	CT10-049/2006 M	SC14-004/2006 F	Martens S	5B	30	16-04-2007	5T	Femelle
17	SC14-003/2008 F	235-096/2005 M	SC14-014/2004 F	Martens S	5B	30	15-04-2008	4T	Femelle
18	856-004/2008 F	856-064/2009 M	856-038/2009 F	Martens S	5B	30	15-04-2008	4T	Femelle
19	838-010/2008 M	838-092/2007 M	838-002/2007 F	Martens S	5B	30	15-04-2008	4T	Mâle
20	SC14-012/2008 F	SC14-068/2006 M	SC14-028/2006 F	Martens S	5B	30	15-04-2008	4T	Femelle
21	SC14-014/2008 M	SC14-040/2007 M	SC14-011/2007 F	Martens S	5B	30	15-04-2008	4T	Mâle
22	0811-015/2008 F	0811-009/2007 M	0811-075/2006 F	Martens S	5B	30	15-04-2008	4T	Femelle
23	838-017/2008 M	838-092/2007 M	838-090/2007 F	Martens S	5B	30	15-04-2008	4T	Mâle
24	SC55-017/2008 M	SC55-014/2007 M	SC55-075/2007 F	Martens S	5B	30	15-05-2008	4T	Mâle
25	SC14-018/2008 F	SC14-040/2007 M	SC14-011/2007 F	Martens S	5B	30	15-04-2008	4T	Femelle
B_D

 

[johnnyL]

You didn't mention where to put the data in the 'Results' sheet so how about:

Sheets("B_D").UsedRange.Copy Sheets("Result").Range("A1")

 

[harzer]

Hello johnnyL,
Thank you for your reply.
I forgot to specify in my request that there are other columns after the 10th column.
How could you modify the code so that it can only copy the data on the first 10 columns.
Cheers.

 

[johnnyL]

Sheets("B_D").Range("A1:J" & Range("A:J").Find("*", , xlFormulas, , xlByRows, xlPrevious).Row).Copy Sheets("Result").Range("A1")

 

[harzer]

Hello johnnyL,
Thanks for correcting the code.
It's PERFECT, it works very well.
Friendly greetings

 

[johnnyL]

Glad to help.