Как разделить значение адреса выше одной ячейки на несколько значений через макрос

Как разделить нижнее значение одной ячейки на несколько значений через макрос?

Итак, это ...

A1 = MISS FirstName LastName***95*SPECIAL ROAD**LONDON SW92**SW929AB

... следует разделить, как показано ниже,

B1 = MISS
C1 = FirstName 
D1 = LastName
E1 = 95 SPECIAL ROAD
F1 = LONDON SW92
G1 = SW929AB

Кто-нибудь может помочь в этом?

На основании приведенной вами демонстрации и того факта, что вы написали «Как разделить значение выше одной ячейки на значение нескольких ячеек с помощью макроса, как показано ниже», это именно так и происходит.

Sub Button1_Click()
Dim address() As String
address() = Split(Range("A1").Value, "**")

Dim col As Integer
col = 66

    For Each Item In address

        If (col = 66) Then

            For Each Name In Split(Item, " ")
                Range(Chr(col) & 1).Value = Trim(Name)
                col = col + 1
            Next Name

        Else

        Dim newValue As String
        newValue = Replace(Item, "*", " ")

            If (newValue <> "") Then
                Range(Chr(col) & 1).Value = Trim(newValue)
                col = col + 1
            End If

        End If

    Next Item

End Sub