¿Cómo completo la siguiente macro?

Tengo la columna "X", a partir de "X8" hacia abajo, celdas con diferentes caracteres.

Necesito extraerlos y copiarlos en la fila 8 desde "Z8" hacia adelante. En la fila 9 desde "Z9" hacia adelante. En la fila 10 desde "Z10" hacia adelante. Y asi sucesivamente.

Aquí dejo una parte de la macro. En negrita está la parte del código que me falta por completar para que la macro funcione.

For i = 8 To ActiveCell.SpecialCells(xlLastCell).Row
If Range("X" & i) <> "" Then
PEGAR EN LA FILA 8 A PARTIR DE "Z8" = Mid(Range("X" & i).Value, 1, 1)
End If
Next i

For i =8 To ActiveCell.SpecialCells(xlLastCell).Row
If Range("X" & i) <> "" Then
PEGAR EN LA FILA9 A PARTIR DE "Z9" = Mid(Range("X" & i).Value, 2, 1)
End If
Next i

For i = 8 To ActiveCell.SpecialCells(xlLastCell).Row
If Range("X" & i) <> "" Then
PEGAR EN LA FILA 10 A PARTIR DE "Z10" = Mid(Range("X" & i).Value, 3, 1)
End If
Next i