Sub Макрос2()
Dim LastRow As Long
With Sheets("Лист2")
LastRow = .Cells(Rows.Count, 6).End(xlUp).Row
Range("A1:B1").Copy .Cells(LastRow + 1, 6)
Range("C1:D1").Copy .Cells(LastRow + 1, 9)
End With
End Sub
У меня есть следующий макрос от Юрий М отсюда. Этот макрос автоматически копирует ячейки и вставляет в следующие пустые строки. Но копирует вместе с формулой
Что необходимо сюда дабавить, что бы ячейки вставлялись без формул?