Excel VBA проверить, если буфер обмена пуст

Question

Я написал скрипт vba для вставки определенного количества новых строк в таблицу Excel.Код выполняет свою работу, за исключением случаев, когда буфер обмена не пуст.

Есть ли какой-либо сценарий для очистки буфера обмена перед его выполнением?

Спасибо!

Кодбез проверки буфера обмена, включенной ниже.

If ActiveSheet.Name <> "Worksheet A" Then
    MsgBox "This macro only works in worksheet A"
Else
    Dim Rng As Integer
    Dim k As Integer
    Dim R As Long

    R = Selection.Row + 1

    Rng = InputBox("Amount of rows?")
    For k = 1 To Rng
        Rows(R).Insert Shift:=xlDown
    Next
    End If  

Answer 1

Перед запуском вставки выключите Application.CutCopyMode:

If ActiveSheet.Name <> "Worksheet A" Then
    MsgBox "This macro only works in worksheet A"
Else
    Dim Rng As Integer
    Dim k As Integer
    Dim R As Long

    R = Selection.Row + 1

    Rng = InputBox("Amount of rows?")
    Application.CutCopyMode = False
    For k = 1 To Rng
        Rows(R).Insert Shift:=xlDown
    Next
End If