Çözüldü Yandaki Değere Göre Tarih Çoğaltma

Sub ExcelTurkey()
    Dim i&, a&, b&, say&, osma()
    a = 2
    For i = 2 To Cells(Rows.Count, "A").End(3).Row
        If Cells(i, 2).Value <> "" And _
           IsNumeric(Cells(i, 2).Value) Then
            say = Cells(i, 2).Value
            For s = 0 To say - 1
                ReDim Preserve osma(say - 1)
                osma(b) = Cells(i, 1).Value
                b = b + 1
            Next s
            Cells(a, 3).Resize(say, 1).Value = osma
            a = a + say: b = 0
            Erase osma
        End If
    Next i
End Sub