Окно проекта VBA правильно выполняет макрос, однако кнопка на листе 1 не выполняет

Question

Я много раз тестировал свой макрос через VBA Run Window, и все на Sheet2 отображается правильно.Когда я пытаюсь запустить макрос из кнопки на листе 1, два столбца «C» и «D» поднимают все числа на одну ячейку вверх.В чем может быть проблема с Button, Sheet1?

В то же время этот код скрипта был организован так, чтобы удалять содержимое из пустых строк с дополнительными словами или буквами, затем предполагается удалить строку вверх,возможно, это может быть проблемой.

Мой код:

Sub CopyPasteintoSheet2()


Dim lr As Long
Dim i As Long
Dim inputdtae As Date
Dim rng As Range


lr = Cells(Rows.Count, 1).End(xlUp).Row

    For i = lr - 0 To 2 Step -1
        If Cells(i, "B") = "LLC" Then
            Cells(i, "B").EntireRow.Delete
        End If
    Next i


ActiveWindow.SmallScroll Down:=11

    Columns("J:J").Select
    Selection.TextToColumns Destination:=Range("J1"), DataType:=xlDelimited, _
    TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
    Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
    :=Array(1, 1), TrailingMinusNumbers:=True
    Columns("R:R").Select
    Selection.TextToColumns Destination:=Range("R1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), TrailingMinusNumbers:=True



Dim LastRow As Long
Dim NEWFORMAT As Worksheet
Dim Results As Worksheet

   Set Results = Sheets("NEWFORMAT")
    LastRow = Results.Cells(Results.Rows.Count, "Z").End(xlUp).Row

    Range("A15:A400").Copy
    Results.Range("A" & LastRow + 2).PasteSpecial xlValues
    Range("B15:B400").Copy
    Results.Range("B" & LastRow + 2).PasteSpecial xlValues
    Range("J15:J400").Copy
    Results.Range("C" & LastRow + 2).PasteSpecial xlValues
    Range("R15:R400").Copy
    Results.Range("D" & LastRow + 2).PasteSpecial xlValues

    Application.DataEntryMode = False

End Sub