help tweaking macro

[JasonLeVan]

The following macro runs perfect. what it does is searches for a * in column b. if it finds one it executes the rest the macro. What it does is allows me to imput some data into cells. The change i want to make is when it runs the macro that it will also take the info in column e of that row and add the date to it. Example if the cell reads. abcd it would change it to read abcd2/25. any help

Public Sub JasonLeVan2()
Dim i As Long, _
LR As Long
LR = Range("B" & Rows.Count).End(xlUp).Row
For i = 1 To LR
If Range("B" & i).Value = "*" Then
Range("G" & i).Value = InputBox("Please enter the Description for Item " & Range("E" & i).Value & ":", "Description")
Range("K" & i).Value = InputBox("Please enter the Cost for Item " & Range("E" & i).Value & ":", "Cost")
Range("M" & i).Value = InputBox("Please enter the Retail for Item " & Range("E" & i).Value & ":", "Retail")
Range("B" & i).CLEAR
End If
Next i
End Sub

 

[doofusboy]

Do you mean something like this?

Public Sub JasonLeVan2()
Dim i As Long, _
    LR As Long
    LR = Range("B" & Rows.Count).End(xlUp).Row
    For i = 1 To LR
        If Range("B" & i).Value = "*" Then
            Range("G" & i).Value = InputBox("Please enter the Description for Item " & Range("E" & i).Value & ":", "Description")
            Range("K" & i).Value = InputBox("Please enter the Cost for Item " & Range("E" & i).Value & ":", "Cost")
            Range("M" & i).Value = InputBox("Please enter the Retail for Item " & Range("E" & i).Value & ":", "Retail")
            [B][COLOR=red]Range("E" & i).Value = Range("E" & i).Value & Format(Date, "m/dd")
[/COLOR][/B]            Range("B" & i).Clear
        End If
    Next i
End Sub