макрос: скопировать содержимое и вставить в нижнюю строку

[Sokovnin]

задача скопировать содержимое диапазона ячеек и вставить в нижнюю строку с последующим сдвигом, т.о. заполняется таблица.
есть код, но работает криво (появляется лишняя строка). помогите разобраться!

Sub Макрос2()

Range("A4:I4").Select
Selection.Copy
Range("A5:I5").PasteSpecial Paste:=xlPasteValues

Application.CutCopyMode = False

Selection.Copy
Range("A5:I5").Insert Shift:=xlDown

Application.CutCopyMode = False

End Sub

[kuklp]

Попробуйте так:

Sub Макрос2()
    Range("A4:I4").Copy
    Range("A5:I5").Insert Shift:=xlDown
    Application.CutCopyMode = False
End Sub

И оформляйте коды тегами.

[Sokovnin]

спасибо! все так, но мне надо вставить только содержимое ячеек без форматирования.

[kuklp]

И где у Вас об этом сказано? В таком случае, откуда брать формат? вообще без формата:

[A5:I5].ClearFormats

формат снизу-справа:

Range("A5:I5").Insert xlDown, xlFormatFromRightOrBelow

А на будущее выкладывайте файл-пример, чтоб таких вопросов не возникало.