go to the next emty cell in column

[Belleke]

Hi,
I have this.

Set rng = Range("C2")
For i = 0 To LB_00.ListCount - 1
  If LB_00.Selected(i) Then
  rng.Value = LB_00.List(i)
  Set rng = rng.Offset(1)
  End If
Next i

How can I change rng.Offset(1) to Set rng= rng.Offset next empty cell in column C.
Thanks

 

[Fluff13]

How about

Set Rng = Rng.EntireColumn.SpecialCells(xlBlanks)(1)

Although this will only work on the UsedRange