Copy Data from one cell to another cell

Okay.. use below macro code:-

Sub DILIPandey()
'copying data under correct month section
k = Sheets("asset table").Range("f51").Value
i = Application.WorksheetFunction.Text(Date, "mmmm")
Sheets("Monthly").Select
Range("a:e").Find(i).Offset(0, 1).Select
    If Selection.Offset(1, 0).Value = "" Then
        Selection.Offset(1, 0).Value = k
        Selection.Offset(1, -1).Value = Date
        Else
        Selection.End(xlDown).Offset(1, 0).Select
        Selection.Value = k
        Selection.Offset(0, -1).Value = Date
    End If
End Sub

Asset Manager.xlsm


Regards,
DILIPandey
<click on below * if this helps>