Macro to fill in my caledar sheet with my dates adding extra rows when we get duplicates apointments

[tonywatsonhelp]

Hi Everyone,
I have 2 sheets
1 is "Data"
2 is "Cale"

Data has a list of my appointments with my cliennts and their departments
Cale is a calendar Showing dates in row10 one day at a time
Starting 01/03/2019 in column S10
Column D holds the client names


In "Data" I have
A Client Name
B Apointment
C Date
D Code

I want to fill my calendar with my apointments but quite often I have more than one on a day for the same client
so I need it to do this.

go down The list of client names in sheet "Cale" and for each name fill in the dates with the Code in column D,
however if that cell is already filled up, add a row and place it below, but if you have already added a row usit if its not already full.

i'll do an example in a smaller version below

Sheet "Data"

Sheet "Cale"

A

B

C

D

R

S

T

U

V

W

X

Y

Z

AA

AB

AC

AD

AE

AF

AG

AH

AI

10

Client

Ap.

Date

Code

Client

01/03/19

02/03/19

03/03/19

04/03/19

05/03/19

06/03/19

07/03/19

08/03/19

09/03/19

10/03/19

11

BOB

07/03/19

AW

BOB

WW

YT

AW

RE

12

BOB

10/03/19

RE

BOB

THIS ROW IS ADDED AS BOB ALREADY HAD A DATE IN 07/03/19

THE 06/03 ALREADY HAS A DATE BUT NOW BOB HAS 2 ROWS SO WE CAN ADD IT HERE!

TR

TW

13

SUE

07/03/19

JJ

SUE

HY

JJ

14

BOB

07/03/19

TW

15

SUE

01/03/19

HY

16

BOB

03/03/19

WW

17

BOB

06/03/19

YT

18

BOB

06/03/19

TR

19

20

<tbody>
</tbody>

Hope that's clear, please help if you can thanks Tony