I received this code from Don Guillett:

Sub copyalltotheirsheets()
For Each c In Range("a2:a" & Cells(Rows.Count, "a").End(xlUp).Row)
With Sheets(CStr(c))
..Rows(2).Insert
c.Resize(, 2).Copy .Range("a2")
End With
Next c
End Sub

Currently this copies the data in row A and B. How could I include the data
in column C?

Thanks,