'	if the data in columns 1, 2 and 3 are the same on sheet 
'	"yoursheet", then row is deleted.

'	Note: The data in all those columns must be the same. 
'	Values in columns outside of this range are ignored!

'	We recommend taking a backup of your sheet before you 
'	start because once deleted it is gone!

ThisWorkbook.Sheets("yoursheet").Cells.RemoveDuplicates Columns:=Array(1, 2, 3)