转到 B 列中的下一个空单元格

Question

我正在尝试为我的列表框创建一个按钮，以转到 B 列的下一个空单元格。当我使用此代码时，它会转到 A 列中的最后一个空单元格。请帮忙。谢谢

Private Sub CommandButton6_Click()
 Dim i As Long
 With lstOCC
 For i = .ListCount - 1 To 0 Step -1
 Debug.Print i, lstOCC.List(i, 0)
 If lstOCC.Column(i, 0) <> "" Then
 .ListIndex = i
 Exit For
 End If
 Next i
 End With
End Sub