Ошибка приложения / объекта во время специальной операции вставки

Question

Я работаю в этом коде уже неделю, я в некотором роде новичок в VBA и близок к тому, чтобы заставить его делать то, что мне нужно, но я продолжаю получать сообщение «Ошибка, определяемая приложением или объект», в Последняя линия. Мой код довольно прост, он запрашивает 3 импульса на позициях Sheet1, где они должны быть, затем копирует каждую информацию в первую строку Sheet2 в соответствующих ячейках, а затем ищет значение первого ввода или значение Первая ячейка с именем last4 (все еще работает над этим) добавляет строку прямо выше, где значение находится на sheet2, и затем копирует первую строку в эту новую пустую строку. теперь, если бы я мог просто избавиться от этой ошибки и правильно найти нужную ячейку, все должно работать без сбоев, любая помощь приветствуется.

Sub CommandButton1_Click()

Dim Last4 As Variant
Dim SerialNum As Variant
Dim ExpDate As Variant
Dim addaul As Worksheet

Do

Last4 = InputBox("Insert the last 4 numbers on the NSN for the Hazmat", "RECEIVED HAZMAT")
Range("D" & Rows.Count).End(xlUp).Offset(1).Value = Last4
Sheets("AUL").Range("A1").Value = Last4

If Last4 = Blank Then Exit Sub

SerialNum = InputBox("Scan the Serial Number of the Hazmat", "RECEIVED HAZMAT")
Range("E" & Rows.Count).End(xlUp).Offset(1).Value = SerialNum
Sheets("AUL").Range("H1").Value = SerialNum

If SerialNum = Blank Then Exit Sub

ExpDate = InputBox("Insert the expiration date for the Hazmat", "RECEIVED HAZMAT")
Range("F" & Rows.Count).End(xlUp).Offset(1).Value = ExpDate
Sheets("AUL").Range("I1").Value = ExpDate

If ExpDate = Blank Then Exit Sub

Sheets("AUL").Select
Sheets("AUL").Range("A1").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("AUL").Cells.Find(What:="Last4", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
    :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
    False, SearchFormat:=False).Activate
Application.CutCopyMode = False
Selection.EntireRow.Insert

Sheets("AUL").Range("A1:O1").Copy
Sheets("AUL").Range("A1:O1" & Rows.Count).End(x1Up).Offset(1, 0).PasteSpecial xlPasteValues  <------ ERROR LINE IS THIS ONE

Loop Until Last4 = Blank
End Sub