Erro de aplicativo / objeto durante a operação especial de colar

Question

Eu tenho trabalhado neste código por uma semana agora, eu sou meio novo no VBA e estou perto de fazê-lo para fazer o que eu preciso, mas eu continuo recebendo um "erro definido pelo aplicativo ou definido pelo objeto "na última linha. Meu código é bastante simples, ele pede 3 imputs na Sheet1 posiciona-os onde eles têm que estar copiando cada informação para a primeira linha da Sheet2 em suas células apropriadas, do que ele procura o valor da primeira entrada ou o valor da A primeira célula chamada last4 (ainda trabalhando nisso) adiciona uma linha logo acima de onde o valor é encontrado na sheet2 e copia a primeira linha para aquela nova linha vazia. Agora, se eu pudesse me livrar desse erro e procurar corretamente a célula que eu quero, tudo deve funcionar sem problemas, qualquer ajuda apreciada.

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