Sub Nakadon()
Dim MaDate, DerLig, i, IndDeb
DerLig = Range("A" & Rows.Count).End(xlUp).Row
Range("A6:G" & DerLig).Sort Key1:=Range("B7"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
For i = 7 To DerLig
MaDate = Cells(i, 1)
IndDeb = i
While Cells(i, 2) = Cells(i + 1, 2)
Cells(i, 1) = DateSerial(Year(MaDate), Month(MaDate) + i - IndDeb, 1)
i = i + 1
Cells(i, 1) = DateSerial(Year(MaDate), Month(MaDate) + i - IndDeb, 1)
Wend
Next
End Sub