Insert a space after the first uppercase character it finds in a string

CellInR_FindFirstUpperChar.bas

Sub FindFirstUpperCharacter()

Dim mStr As String
Dim FindUpper As String
Dim FindLower As String
Dim i As Integer
Dim Cell As Range
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'assumes the string has only two Upper characters that need separating by blank space; Angelina Teneva, March 2017
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
For Each Cell In ActiveSheet.Range("G3:G43")
    mStr = Cell.Value
    
    For i = 2 To Len(mStr)
        If Mid(mStr, i, 1) Like "[A-Z]" Then
            FindUpper = i
            Cell.Value = Left(mStr, FindUpper - 1) & Chr(32) & Right(mStr, Len(mStr) - FindUpper + 1)
            Exit For
        End If
    Next i
Next Cell
End Sub