Code for Finding Highest values, Lookup,Offset Values

Dear Friends,
I need a code for VLookup,Offset,Finding Values.is this possible by Macro? my results Columns from K to X, please see sample file.

Thanks.

Oh My God,
nobody was taken challenge, in this website.

This is almost there but not quite right. The look ups to find remarks don't take into account the unique IDs. I will work on this a little more.

Edit: Should be right now.

You don't need macros, simply adjust the ranges to include all your data. Note that any array formulas in the sheet (enclosed in {}) do not have the brackets typed. They are entered using Ctrl Shift Enter

Dear friend, i need macro because i want to develop values at J too, because i have items data above 50K rows. J values should be pullout from A. any possibilities by codes?

Thanks.

Post Deleted after re-reading questions

I have looked at your sheet again and understand what you mean about A and J. Copy entire column of data in A and paste into new sheet. From the data tab, remove duplicates. Paste this into J. Fill the formulas I have provided down.
Hope this helps.

Helo friend,

if i remove duplicates there is some blanks in Cells and difficult to paste from A to J due to More Rows at A to F. and you deleted D column. please keep D column there some values some times. please modify.

Thanks.

Sub Macro1()
    Dim lRow As Long
    lRow = Range("A" & Rows.Count).End(xlUp).Row
    Range("A4:A" & lRow).Copy
    Range("J4").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    lRow = Range("J" & Rows.Count).End(xlUp).Row
    ActiveSheet.Range("$J$3:$J$" & lRow).SpecialCells(xlCellTypeBlanks).Select
    Selection.Delete Shift:=xlUp
     lRow = Range("J" & Rows.Count).End(xlUp).Row
    ActiveSheet.Range("$J$3:$J$" & lRow).RemoveDuplicates Columns:=1, Header:=xlYes
    lRow = Range("J" & Rows.Count).End(xlUp).Row
    Range("K4:W4").AutoFill Destination:=Range("K4:W" & lRow)
End Sub

I'm done here.