[Iska]

Можно ли сделать такой макрос »

HomaOne, примерно так:

Код:

Option Explicit

Sub CopyPasteSpecialToOne()
    Dim objPreviousWorkbook As Workbook
    Static objWorkbook As Workbook

    Selection.Copy
    
    If objWorkbook Is Nothing Then
        Set objPreviousWorkbook = ActiveWorkbook
        Set objWorkbook = Workbooks.Add()
        
        With objWorkbook.Worksheets.Item(1)
            .Name = "Сбор"
            .Cells(1, 1).Value = "Сбор"
        End With
        
        objPreviousWorkbook.Activate
        
        Set objPreviousWorkbook = Nothing
    End If
    
    With objWorkbook.Worksheets.Item("Сбор")
        .Cells(.UsedRange.Rows.Count + 1, 1).PasteSpecial Paste:=xlPasteValues
    End With
    
    Application.CutCopyMode = False
End Sub

при нажатии клавиши или сочитания »

Назначайте данный макрос сочетанию клавиш: Запуск макроса нажатием клавиши CTRL в сочетании с клавишей быстрого вызова. Например, на «Ctrl-Q».