Excel - casi imposible: Convertir a filas

Sub Macro1()

'

' Macro1 Macro

' reemplaza1-2

'

' Acceso directo: CTRL+q

'

'Primero Determino hasta donde viaja el bucl

'Por cuestiones que no se si haya 2 celdas con espacio seguidas yo pongo

'el numero pero si no lo podria recorrer A hasta cuando hayan 10 vacias

' y ese lo pongo de limite

Dim Contado, i, j, k As Integer ' para CONTAR

Dim texto As Variant 'PARA TENER EL TEXTO SEPARADO

Dim textofijo As String ' para poner el textofijo

k = 2 'este para llevar el contador de la segunda hoja

For i = 2 To 10 ' aqui le puse 10 pon el numero que desees....

    'validamos la Celda si es diferente de vacia si no sigo

    If Len(Range("A" & i).Value) > 0 Then

        textofijo = Range("B" & i).Value  ' lo que va a decir en B

        texto = Split(Range("A" & i).Value, ";")

        For j = 0 To UBound(texto)

             Sheets("Hoja2").Range("A" & k).Value = texto(j)

             Sheets("Hoja2").Range("B" & k).Value = textofijo

             k = k + 1

        Next j

    End If

Next i

End Sub