TEXT formatting withing single quote

Screenshot 2018-12-15 14.22.38.png
Screenshot_9.jpg

Macro :

 Sub formating()


Dim L As Long
 L = Range("A1", Range("A1").End(xlDown)).Rows.Count
    ActiveSheet.Select
 Columns("B:B").Select
   Selection.NumberFormat = "General"
    Range(Cells(2, 2), Cells(L, 2)).FormulaR1C1 = _
       "=IFERROR(REPLACE(UPPER(LEFT(RC[-1],1))&MID(LOWER(RC[-1]),2,999),FIND(""'"",UPPER(LEFT(RC[-1],1))&MID(LOWER(RC[-1]),2,999)),2,UPPER(MID(UPPER(LEFT(RC[-1],1))&MID(LOWER(RC[-1]),2,999),FIND(""'"",UPPER(LEFT(RC[-1],1))&MID(LOWER(RC[-1]),2,999)),2))),UPPER(LEFT(RC[-1],1))&MID(LOWER(RC[-1]),2,999))"
   

 End Sub

Hi Team,

I want to format text as in second image. I dont know much about vba. Can you please advise.


Thanks,
Gajjo