Sub concatenatecode()
Dim Val1 As String, Val2 As String
Dim Fname1 As String, Fname2 As String
Dim Fsize1 As Long, Fsize2 As Long
Dim Lng1 As Long, Lng2 As Long
With Range("C4")
     Val1 = .Value
     Fname1 = .Font.Name
     Fsize1 = .Font.Size
     Lng1 = Len(.Value)
     Fstyle1 = .Font.FontStyle
End With
With Range("D4")
     Val2 = .Value
     Fname2 = .Font.Name
     Fsize2 = .Font.Size
     Lng2 = Len(.Value)
End With
With Range("E4")
     .Value = Val1 & Val2
     .Characters(1, Lng1).Font.Name = Fname1
     .Characters(1, Lng1).Font.Size = Fsize1
     .Characters(1, Lng1).Font.FontStyle = Fstyle1
     .Characters(Lng1 + 1, Lng2).Font.Name = Fname2
     .Characters(Lng1 + 1, Lng2).Font.Size = Fsize2
End With
End Sub