يمكنك استعمال هذا الملف
وهذا الماكرو التابع له (اسرع من الاول)
Sub salim()
Dim lr As Integer
lr = Cells(Rows.Count, 2).End(3).Row
Range("a2:a" & lr).ClearContents
Set myrg = Range("b2:b" & lr).SpecialCells(2, 23).SpecialCells(12).Offset(0, -1)
myrg.Cells(1) = 1
myrg.DataSeries Rowcol:=xlColumns, Type:=xlLinear, _
Step:=1, Stop:=myrg.Count
End Sub
PROBLEM salim.rar