VBA od 40 do

Cześć wszystkim,
Czy ktoś wie jak można wprowadzić do komórek od B1 do B40 kolejne liczby od 40 do 1.
Dziękuje

Pewnie można na kilka sposobów, jeden z nich:

Dim i As Integer
Dim sh As Object
Set sh = Application.ActiveSheet

For i = 0 To 39
    sh.Cells(i + 1, 2).Value = 40 - i
Next

Działa super
Dzięki wielkie