macro needed to extract specific columns out of multiple columns with their row data

[genetist]

Hi to all,
I have data like this,
name age Eye color education country village
pietro 22 red bsc Italy viterbo
luigi 25 blue msc germany frosinone
maurizio 34 white msc spain rome
andrea 35 pink bsc portugal villalante
anna 65 green msc estonia bagnaia
giulia 23 black msc finland portis
federica 27 violet bsc sweden fortna
Now i want to extract only some columns out of all for example education and village. How can i extract all the columns at a time instead of one by one.

Expected results
name education village
pietro bsc viterbo
luigi msc frosinone
maurizio msc rome
andrea bsc villalante
anna msc bagnaia
giulia msc portis
federica bsc fortna
in my file i have like more than 10000 columns here i presented only example data. any help would be highly appreciated.
Thanks in advance

[hemesh]

Hello genetist ! Your requirement can be completed with formula also is it ok !

[genetist]

Hi Hemesh,
Thank you very much for your reply and spending your time to solve my problem, Yes formula will be o.k but i have to extract more or less 300 columns spreaded randomely in 10000 columns. I do not know how formula can work in this situation. I want give all the columns names to extract and VBA or should extract only those provided columns data along with their rows data.
Thanking you very much

[hemesh]

can you please upload a sample book of your actual data .

[genetist]

Dear Hemesh,
Please have a look on my attached file.
Thanks

[hemesh]

select sheet 2 a2 and copy paste below
=IFERROR(INDEX(Sheet1!$A$3:$F$10000,SMALL(IF(Sheet1!$A$3:$A$10000<>"",ROW(Sheet1!$A$3:$A$10000)-ROW($A$3)+1),ROWS($A$1:A1)),1),"")
then hold control and shift together now hit enter

now in cell b2 copy paste
=IFERROR(INDEX(Sheet1!$A$3:$F$10000,SMALL(IF(Sheet1!$A$3:$A$10000<>"",ROW(Sheet1!$A$3:$A$10000)-ROW($A$3)+1),ROWS($A$1:A1)),4),"")
then hold control and shift together now hit enter

Now in cell c2
=IFERROR(INDEX(Sheet1!$A$3:$F$10000,SMALL(IF(Sheet1!$A$3:$A$10000<>"",ROW(Sheet1!$A$3:$A$10000)-ROW($A$3)+1),ROWS($A$1:A1)),6),"")
then hold control and shift together now hit enter

drag all formulas down

[genetist]

Hi hemesh,
I am sorry for some reasons after using i am getting out put like this
pietro pietro pietro
luigi luigi luigi
maurizio maurizio maurizio
andrea andrea andrea
anna anna anna
giulia giulia giulia
federica federica federica

and it is not in my expected way
name education village
pietro bsc viterbo
luigi msc frosinone
maurizio msc rome
andrea bsc villalante
anna msc bagnaia
giulia msc portis
federica bsc fortna

[hemesh]

there is only one change in formula change 1 to 4 in B2 and 1 to 6 in C2
=IFERROR(INDEX(Sheet1!$A$3:$F$10000,SMALL(IF(Sheet1!$A$3:$A$10000<>"",ROW(Sheet1!$A$3:$A$10000)-ROW($A$3)+1),ROWS($A$1:A1)),1),"")

[AB33]

Is this what you wanted?

[genetist]

Dear AB33,
Thank you very much for your and it is working as i am expected, you saved my lot of time.