Function AddSpaces(pValue As String) As String
'UpdatebyExtendoffice20160908
Dim xOut As String
xOut = VBA.Left(pValue, 1)
For i = 2 To VBA.Len(pValue)
xAsc = VBA.Asc(VBA.Mid(pValue, i, 1))
If xAsc >= 65 And xAsc <= 90 Then
xOut = xOut & " " & VBA.Mid(pValue, i, 1)
Else
xOut = xOut & VBA.Mid(pValue, i, 1)
End If
Next
AddSpaces = xOut
End Function



Function Reversestr(str As String) As String
    Reversestr = StrReverse(Trim(str))         
End Function

=reversestr(b1)    using for reverse order

=A2&" "&B2   for merging 2 cell
=LEFT(a1,LEN(a1)-1) for delete last digit