spring to the next line

Hello,

I wrote the following program to split a txt which is in the active cell. Now should the program spring from the active cell to the last cell which is not empty. How can I do this?

PHP Code: 

Sub Splittxt()
Dim txt As String
Dim i As Integer
Dim FullName As Variant

txt = ActiveCell.Value

FullName = Split(txt, "#")

For i = 0 To UBound(FullName)

    Cells(1, i + 1).Value = FullName(i)
    
Next i

End Sub 


Thanks Joseph

Sorry,
I need all result of cells whit a value until to a empty one.

thank you so much, Josef

Okay,

it runs whit the following code:

Sub splitText()
Dim rng As Range, vntTmp As Variant

For Each rng In Range("A1:A100")
If InStr(1, rng.Text, "#") > 0 Then
vntTmp = Application.Transpose(Application.Transpose(Split(rng.Text, "#")))
rng.Offset(0, 1).Resize(1, UBound(vntTmp)) = vntTmp
End If
Next
End Sub

Thanks for your help