Remove row when everything in the row is same
The proper way to do this is use the Range.RemoveDuplicates method.  

Here is the refactored macro created by clicking the Remove Duplicates button on the Data tab of the Ribbon.  Array(1, 2, 3, 4, 5, 6) contains all the column numbers that need matching data for a row to be deleted.

Application.ScreenUpdating = False
Range("A1").CurrentRegion.RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6), Header:=xlYes