макрос копирования отредактируйте.

[zander]

вот есть такой макрос, но он копирует из J4 в очередную строку по колонке "С". А как бы так сделать, что бы макрос делал все тоже самое но с двумя соседними ячейками? Напрмер J4:K4 в C:B?

Public Sub copyse1()
Worksheets("K").Range("C" & Rows.Count).End(xlUp).Offset(1) = Worksheets("k").Range("J4")
End Sub

[Hugo121]

Public Sub copyse1()
Worksheets("K").Range("C" & Rows.Count).End(xlUp).Offset(1).Resize(, 2).Value = Worksheets("k").Range("J4:K4").Value
End Sub