Sub testdatacode()
Range("A1:A5").Clear
With Range("A1")
    .Value = "Abcde"
    .Font.Name = "calabri"
    .Font.Size = 11
    .Font.FontStyle = "italic"
End With
With Range("A2")
    .Value = "PQ"
    .Font.Name = "webdings"
    .Font.Size = 20
End With
End Sub

 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("A1")
    Val1 = .Value
    Fname1 = .Font.Name
    Fsize1 = .Font.Size
    Lng1 = Len(.Value)
    Fstyle1 = .Font.FontStyle
End With
With Range("A2")
    Val2 = .Value
    Fname2 = .Font.Name
    Fsize2 = .Font.Size
    Lng2 = Len(.Value)
End With
With Range("A5")
    .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