Copy and paste relative data with loop

Hello all,

I have what seems to be a relatively complicated problem. I need to write a macro that consolidates data from a Google Form into a readable invoice. The data pulled from the form looks like this:

Date	Child 1	Child 2	Child 3
2/1/17	After Care	Morning Care
2/2/17		Morning Care	After Care
2/3/17	After Care		After Care

I need all of the dates associated with an entry under each child copied and pasted in their own specified sheets. Currently, I have code that loops through all of the child names and creates a new sheet for them. This is my code for that:

Set rw1 = Range("1:1")

For Each cel In rw1
    If InStr(cel, ",") > 0 Then
            Dim sht As Worksheet
            Set sht = Sheets.Add(After:=Sheets(Worksheets.Count))
            sht.Name = cel
    End If
Next

What I would like it to do within that for loop would be:
-Loop through each cell in a column
-If the cell <> blank then
-Copy the cell value AND relative date
-Go to the specific child's sheet (as specified currently by cel.value)
-Paste the date in the next blank row in their sheet

If anyone has any insight into this I would be most grateful.

Thanks!