Sub Olustur()
    Dim i As Long
    Dim baslangic As Long
    Dim bitis As Long
    
    baslangic = 1   ' Başlangıç değeri
    bitis = 500000  ' Bitiş değeri
    
    For i = baslangic To bitis
        Cells(i, 1).Value = "kelime" & i
    Next i
End Sub