使用上面的值填充任何空单元格

我想使用上面单元格的值填充所有空单元格

state  name
IL     Mike 
       Sam
CA     Kate
       Bill
       Leah

应如下

   state  name
    IL     Mike 
    IL     Sam
    CA     Kate
    CA     Bill
    CA     Leah

我尝试了以下内容

Sub split()
Dim columnValues  As Range, i As Long 

Set columnValues = Selection.Area

Set i = 1
For i = 1 To columnValues.Rows.Count   
    If (columnValues(i) = "") Then
    columnValues(i) = columnValues(i - 1)
    End If
Next

End Sub

我设置时出错i.我该如何修改我的代码