Write VBA copy/paste loop based on cell_check restriction

See attached file, I want a macro run that achieves the following when run: - Clears any existing data in the "DATA" worksheet below the headings in row 2; - Loops through the worksheets "ROSTER - ADMIN", "ROSTER - CARE" & "ROSTER HOSPITALITY" and where the value of the cell in column A is 1 transposes as values the information in the roster worksheet to the "DATA" worksheet among the various headings. As an example of the transposition the current file will paste the following from the Roster Admin Worksheet: - Dates from F4:L4 of ROSTER - ADMIN to B3:B9 in DATA; - Employee from F6:L6 ROSTER - ADMIN to E3:E9 in DATA; - Start Time from F7:L7 ROSTER - ADMIN to F3:F9 in DATA; - Finish Time from F8:L8 ROSTER - ADMIN to G3:G9 in DATA; - Break (Hours) from F9:L9 ROSTER - ADMIN to H3:H9 in DATA; - Hours from F10:L10 ROSTER - ADMIN to I3:I9 in DATA; - the Value in Column C of ROSTER - ADMIN to C3:C9 in DATA; - the Value in Column D of ROSTER - ADMIN to D3:D9 in DATA; As the value in the ROSTER - ADMIN worksheet from A11:A15 is zero it will ignore the next range and move onto the ROSTER - Care worksheet and transpose in a similar fashion to the DATA worksheet below what has been transposed from the ROSTER - ADMIN Worksheet. Please review and understand the brief before submitting a proposal, need within the next 6 hours.