Заполнение пустой ячейки в строке предидущим значением

[1134]

Здравствуйте, подскажите пожалуйста, как мне записать строчку отмеченную 3-мя знаками вопроса. Или может я не там копаю...

Sub Pr ()

Dim qqq As Integer

Dim sutki As Integer

For stroki = 1 To 200

Select Case Cells(stroki, 1).Value
Case "Январь"
sutki = 31
Case "Февраль"
sutki = 28
Case "Март"
sutki = 31
Case "Апрель"
sutki = 30
Case "Май"
sutki = 31
Case "Июнь"
sutki = 30
Case "Июль"
sutki = 31
Case "Авгус"
sutki = 31
Case "Сентябрь"
sutki = 30
Case "Октябрь"
sutki = 31
Case "Ноябрь"
sutki = 30
Case "Декабрь"
sytki = 31
End Select

If Cells(stroki, 4) = "Q" Then

For Each Cell In Range(Cells(stroki, 6), [Cell(stroki,sutki)]) ???

If Cell.Value = "" Then Cell.Formula = Cell.Offset(0, -1).Formula
Next Cell
End If

Next stroki

End Sub

[doober]

Dim Cell As Range

For Each Cell In Range(Cells(stroki, 6), Cells(stroki, sutki))

[1134]

Большое спасибо!