HELP WITH VBA CODE

[roykana]

Dear All Master,


Please help me with the vba code. What I want in the data sheet to be like in the result sheet, namely in columns A & B. What I want is as follows:
1. I want to pop up a textbox to type the year because in the original data sheet there is no year, so with the pop up textbox I can type the year I want so that the data in column A in the result sheet matches the date format.
2. I want the result in column B in the result sheet like that.
3. I want to ask in the vba code below why can't I delete a row based on criteria like this "No. Account."
and also for blank row can use the code below.
link :HELP WITH VBA CODE.xlsx
https://drive.google.com/file/d/1HOOcC6tW76RcOFWzPqBDTuD5hZG1ZL2O/view?usp=sharing

Thanks
roykana

.AutoFilterMode = False
        With Range("A1", Range("A" & Rows.Count).End(xlUp))
        .AutoFilter 1, Criteria1:=Array("No. Account", "Name", "Currency", "cash", "credit"), Operator:=xlFilterValues
        On Error Resume Next
        .Offset(1).SpecialCells(12).EntireRow.Delete
        End With
        .AutoFilterMode = False

 

[roykana]

dear all master,

please give me a solution

Thanks

roykana