Remove Duplicate rows but Keeping the highest value - excel

Question

I have 8 Columns with Data and there are multiple duplicates in Column 1 and other columns have values and texts.
I want to keep the Column 5 highest values and remove duplicates from Column 1.
Your help will be appreciated.
Sub KeepHighvalue()
Dim MyRange As Range
Dim LastRow As Long
Dim Sht1 As worksheet
Set Sht1 = Worksheets("Sheet1")
LastRow = Sht1 .Range("A" & Rows.Count).End(xlUp).Row
Set MyRange = Sht1 .Range("A1:A" & LastRow)
MyRange.RemoveDuplicates Columns:=1, Header:=xlYes
End Sub
usaupload.com/5g09/Data.xlsx

Answer 1

Assuming it's ok to sort the data (and assuming I've correctly interpreted what you mean by keeping the highest values), the following is one way to approach the problem. It will remove rows (in the defined 8 columns of data, starting at A1), where data is duplicated in column A, keeping rows with the highest value in column E (5).
Sub KeepHighvalue()
Dim lgLastRow&, rgData As Range
''' Set target data area (rgData)
With Worksheets("Sheet1")
lgLastRow = .Range("A" & .Rows.Count).End(xlUp).Row
Set rgData = .Range("A1:H" & lgLastRow)
End With
''' Remove rows with duplicates in column 1, keeping rows with highest values in column 5
With rgData
.Sort Key1:=.Columns(5), Order1:=xlDescending, Header:=xlYes
.RemoveDuplicates Columns:=1, Header:=xlYes
End With
End Sub
If sorting isn't ok, the solution is a little more complex.
============================================================
EDIT: Sample Before and After
============================================================