23 July 2021

 23 July 2021 K Vijay Kumar Profit Rs. 250

K Vijay kumar

 16th July 2021 profit Rs. 200

K Vijay kumar

 15 July 2021 profit Rs. 150

K Vijay kumar

 14 July 2021 profit Rs.100

K Vijay Kumar

 13 July 2021  profit Rs 50

11 5 21

 Aklya 3000 + 1600

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