Move columns To Another Sheet Based On Cell Value Excel vba

[askemeyer]

I have a sheet with some fictional personal data: phone numbers, addresses etc. I have around 200 different persons, So i have made an vba that automatically creates sheets based on the names of the people. And i and quite new to vba and know how to copy data by using

Sheets("Sheet1").Range("A1:O10").Copy Destination:=Sheets("Ark1").Range("A1")

But this only accounts, for that specific sheet destination. How do i based on their names from sheet ("Ark1"). move the data that belongs to the specific persons, from "Ark1". As shown in the linked image, column B is one persons data, C is another etc. The search criteria should be their names, because that is what i define the different sheets as, and their names is in "row2" in the data file "Ark1".

here is the sheet

docs.google.com/spreadsheets/d/1eDm2abizog2akTi3io8WjybyiFu3aKS3oYWwt-9yXaU/edit?usp=sharing


and the code, it does only do well with sorting on columns, were i need soring on rows by names

Please Login or Register  to view this content.

[torachan]

Missed the yellow banner at the head of the page.
A lot quicker for us to work with a 'workbook' than a 'picture'

[askemeyer]

i can add the code, but i can not attach the file by some reason. i tried attachment.

[torachan]

you must 'Go Advanced' not 'Quick Reply' then 'Manage Attachments' follow instructions to 'upload file'
most of us will not download from sharing sites.

[askemeyer]

cant share links, add this "https" in front
1drv.ms/x/s!Am-yl3YfiCstiFVnXFCqPttd0Yjr