Программно внести тип данных строка и данные следующие за указанным днём

'вносим данные в ячейку, ячейка A6 это будет в активном файле, в активном листе
    Range("A6") = "27.03.2014"
 
    Dim c As Byte
 
    For c = 7 To 37
        If c = 13 Or c = 21 Or c = 29 Or c = 37 Then
            Worksheets("Лист1").Range("a" & c) = "ИТОГО"
        Else
        'вносим тип данных "Строка" в ячейку
        ????
            'вносим данные в ячейку
            Worksheets("Лист1").Range("a" & c) = ????
        End If
    Next c

   Dim c As long, d as date
    d=#3/27/2014#
 
 
 
    For c = 6 To 37
        If c = 13 Or c = 21 Or c = 29 Or c = 37 Then
            Worksheets("Лист1").Range("a" & c) = "ИТОГО"
        Else
        'вносим тип данных "Строка" в ячейку
        ????
            'вносим данные в ячейку
            Worksheets("Лист1").Range("a" & c) = d
             d=d+1
        End If
    Next c

'месяц день год
    d = #1/2/2014#

 For c = 6 To 39
        If c = 13 Or c = 21 Or c = 29 Or c = 37 Then
            Worksheets(Лист_экселя).Range("a" & c) = "ИТОГО ЗА НЕДЕЛЮ"
            ElseIf c = 38 Then
            Worksheets(Лист_экселя).Range("a" & c) = "ИТОГО ЗА МЕСЯЦ"
        ElseIf c <> 39 Then
            'вносим данные в ячейки - следующую дату
            Worksheets(Лист_экселя).Range("a" & c) = d
            d = d + 1
        End If
        If c = 39 And Лист_экселя = 12 Then
            Worksheets(Лист_экселя).Range("a" & c) = "ИТОГО ЗА ГОД"
            End If
    Next c