Delete duplicate row but keep the one with highest version number in the cell

Here is one approach. It deletes the data on the same sheet so take a copy first if it needs to be kept
[vba]Sub x()

Dim rData As Range, r As Range

Application.ScreenUpdating = False

With Sheets("Original Table")
Set r = .Range("A1").CurrentRegion
.Range("H2").FormulaArray = "=G2=MAX(IF($A$2:$A$" & r.Rows.Count & "=A2,$G$2:$G$" & r.Rows.Count & "))"
.Range("H2:H" & r.Rows.Count).FillDown
.AutoFilterMode = False
.Range("A1").AutoFilter Field:=8, Criteria1:="FALSE"
With .AutoFilter.Range
On Error Resume Next
Set rData = .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible)
On Error GoTo 0
If Not rData Is Nothing Then
rData.Delete shift:=xlUp
End If
End With
.AutoFilterMode = False
.Range("H:H").Clear
End With

Application.ScreenUpdating = True

End Sub[/vba]

Hi
try this

Sub ertert()
Dim x, i&, j&, k&, s$, Vrsn


With Range("A1").CurrentRegion
    x = .Value
    For i = 1 To UBound(x, 1)
        If s = x(i, 1) Then
            If x(i, 7) > Vrsn Then
                For j = 1 To UBound(x, 2)
                    x(k, j) = x(i, j)
                Next j
            End If
        Else
            s = x(i, 1): Vrsn = x(i, 7): k = k + 1
            For j = 1 To UBound(x, 2)
                x(k, j) = x(i, j)
            Next j
        End If
    Next i
    .ClearContents
    .Resize(k).Value = x
End With
End Sub