Removing Duplicates With Less Elements In A Row

Writing macro for "Removing duplicates with less elements in a row."

I am trying to remove duplicate entries from a file based on the number of data present in a row. Please see below

Example:
Name Col-1 Col-2 Col-3 Col-4
abc 1 3 4
abc 1 2 3 4
abc
abc 1 4

I want to retain the row with maximum elements(row 2 in above eg.).

Result should be:

Name Col-1 Col-2 Col-3 Col-4
abc 1 2 3 4

Currently I am doing this manually, by adding countA at the end of each row, then arranging them in descending order. That will make sure that the row with more data comes first n hence gets retained, while other rows gets deleted.
Can this be done using Macro?

Below macro just deletes the rows,

Public Sub DeleteDuplicateRows()
Dim R As Long
Dim N As Long
Dim V As Variant
Dim Rng As Range

On Error GoTo EndMacro
Application.ScreenUpdating = False

[Code] .....