Try this. It uses sheet one first 5 columns only and sheet 2 as workspace so beware!!
Sub DupEntries()
'Copy the first sheet to the second sheet and use as workspace
Cells.Select
Selection.Copy
Sheets("Sheet2").Select
ActiveSheet.Paste
nColCount = 0
'Enter the columns to check
rng = Array("A:A", "B:B", "C:C", "D:D", "E:E")
'Sort each column individualy
For Each c In rng
nColCount = nColCount + 1
Columns(c).Select
Selection.Sort Key1:=Range(Mid(c, 1, 1) & "1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Next
sColMatch = "Matching Columns are "
For x = 1 To nColCount
For y = x To nColCount - 1
nNoMatch = 0
For w = 1 To 100 'Only check the first 100 cells in each column
If Cells(w, x).Value <> Cells(w, y + 1).Value Then
nNoMatch = 1
Exit For
End If
Next
If nNoMatch = 0 Then
sColMatch = sColMatch & ": " & Str(x) & " and " & Str(y + 1)
End If
Next
Next
'Delete the workspace sheet and move back to first sheet
Sheets("Sheet2").Select
Cells.Select
Cells.Delete
Sheets("Sheet1").Select
Range("A1").Select
'Show the matching columns
MsgBox sColMatch
End Sub