change to one row of data from several

I confess I'm not sure I entirely follow - given 1 does not seemingly appear for each record I'm unsure to as to why you're only using D:M to capture 2:11 given C will not always contain 1... should you not therefore use D:N (1:11) ?

Below is a slightly different approach which I believe does as you request but avoids iteration etc...

Public Sub Example()
With Range(Cells(2, "A"), Cells(Rows.Count, "A").End(xlUp)).Offset(, 3).Resize(, 11)
    .FormulaR1C1 = "=IF(R[-1]C1=RC1,0,REPT(""Yes"",SUMPRODUCT(--(R1C1:R500C1=RC1),--(R1C3:R500C3=(COLUMN(C)-3)))))"
    .Value = .Value
    .SpecialCells(xlCellTypeConstants, xlNumbers).EntireRow.Delete
End With
End Sub

whenever physically altering data be sure to test on a sample sheet first !

edit: and should add the above assumes names are grouped together - if not this can be altered quite easily to account for that.