VB cascade row values

Dim c As Integer
c = 9

For r = 7 To 30
    If Cells(r, c) = "" And Cells(r, c - 1) <> "" Then
        Cells(r, c) = Cells(r - 1, c)
    End If
Next r