Проблема со вставкой значения в ячейку макросом

[strannick]

Добрый вечер, уважаемые форумчане!
Проблема такого характера: Макрос добавляет в столбец B значения, если там заполнено строк, меньше кратного 40. Просто добавляет. Вот кусок кода:

Cells(lr + 1, 2).Value = "0,5"
If i < 39 Then Cells(lr + 2, 2).Value = "0,7"
If i < 38 Then Cells(lr + 3, 2).Value = "0,75"
If i < 37 Then Cells(lr + 4, 2).Value = "1,0"
If i < 36 Then
With Cells(lr + 1, 2)
.Resize(4).AutoFill Destination:=.Resize(40 - i), Type:=xlFillSeries
End With
End If

Такой набор идет друг за другом, пока количество заполненных ячеек по строкам не сравняется с числом, кратным 40. Так вот, первые три значения "0,5", "0,7", "0,75" отображаются правильно сколько бы раз они не вставлялись. А вот "1,0" при первой вставке отображается как "1,0", при второй - "2,0", при третьей - "3,0" и так далее. Изменение форматов ячеек, куда вставляются значения в разных вариациях ни к чему не привели. Вот обращаюсь к всем вам, подскажите, где собака зарыта?

[Казанский]

Ну так AutoFill ... xlFillSeries - автозаполнение последовательностью

[strannick]

Сообщение от Казанский

Ну так AutoFill ... xlFillSeries - автозаполнение последовательностью

Ну конечно же, надо Type:=xlFillCopy. Проглядел. Все, надо спать. Спасибо!!!!