Filter data and copy visible cells based on criteria

Hello everyone

Hope everyone is fine
In my attachment I have Data sheet .. I need first to filter column D according to the value in range("I1") then the visible results would be copied to specific sheets in order (01A then 02A then 03A .. That's sheets have the letter A to the right)
Copying the visible cells would be 29 records for each page

For example : I have filtered the data and got 38 record ..
so in sheets("01A") I expect to have the first 29 names
then in sheets("02A") there would be just 9 records to be copied
of course sheets("03A") would be empty with no names as the results are out ..

In target sheets (01A,02A,03A) I need first before running the code to clear the contents of the ranges (C6:C1000) as a preparation to receive the new results


the copied data would be column B only .. the target cell in target sheets would be cell C6
Hope it is clear

Thanks a lot for this great and swift help my best friend
Now everything is ok ..
I need to add lines at first of the code that show all the sheets (01A - 01B - 02A - 02B - 03A - 03B)
then at the end of the code to hide the sheets that doesn't receive data

As an example if I filtered 29 records only ..the code would copy data to 01A sheet only (((So 01A and 01B sheets should be unhidden))) while the other four sheets to be hidden
Hope it is clear

Another point ..
I tested the code and it doesn't work well unless I select sheets("Data")
In fact I need to run the code even if I selected any other sheet
Thank you very much for you great help

OK I edited Parent. part with Sheets("Data"). (this point is ok)

May I have alert message if the number of results exceeded the number of sheets which will receive data
I mean in my attachment for example I have three sheets 01A - 02A - 03A so these sheets would receive only (29*3) = 87
If the number of filtered results (records ) exceed 87 ,I need to receive alert message so as to create new sheets for new data
Thanks a lot ..(Bear me in this thread ..as I have many points)

Thanks a lot for this wonderful help ..
By the way how can I say (Bear with me ..) I mean to be patient with me in this thread as I have many ideas and new points
Test the code on my original file and I will be back if there is any problem
Regards

Mr. Karedog
everything is perfect now

Now I need to copy different columns to target sheets .. in the same way
for example :: In Sheets("Data") ,Columns(V:X) have to copied in the same way to the target sheets ... to D6 - E6 - F6
As well In Sheets("Data"),Columns("P:U") have to be copied in the same way to the target sheets ... to G6 - H6 - I6 - J6 - K6 - L6

There are other columns in Sheets("Data") to be copied to sheets(01B - 02B -03B ..)
for example
Column K in sheets("Data") to be copied to sheets(01B - 02B -03B ..) in AE6

Thanks a lot for your wonderful assistance

Mr. Karedog
sorry for disturbing you ...
I will explain in detail again so as to have a complete vision
In sheets("Data") I have data in A1:X & LR
I need to transfer data (filtered data only not all ...visible data) to sheets(01A - 01B - 02A - 02B etc)

some columns would be in sheets A ad other columns would be in sheets B ..
In detail:
--------
Sheets("Data") columns ------- Target Sheet ----------- Target cell
**************************************************
A - B -------------------------Sheets A ------------- B6 - C6

V - W - X --------------------Sheets A ------------- D6 - E6 -F6

P - Q - R - S - T - U --------Sheets A -------------- G6 - H6 - I6 - J6 - K6 - L6

F - G - H ---------------- Sheets A ---------------- M6 - N6 - O6

I ----------------------- Sheets A ----------------- X6

K ----------------------Sheets B ----------------- AE6

J ----------------------Sheets B ----------------- AF6

L ----------------------Sheets B ----------------- AG6

M ----------------------Sheets B ----------------- AH6

This is the complete vision ...

As for sheets A & B that wouldn't receive data to be hidden ...I have 9 couples (01A - 01B - 02A - 02B .............09A-09B)
Regards

Thanks a lot
I'm editing you fantastic and great code to suit my file
That's wonderful ...
Let me half an hour and if I faced any problem I will tell you at once

Great ... Great ... Great
Your code is wonderful ...Thank you very very much for all this great help

As for joking , I like it .. And i got your joke in fact and i accept it (you are my best friend ..! Did you forget that?) So if we are friends , we are of the same kind
Thanks a lot for awesome coding ..
Regards