Error 1004 Macro

Estimados estoy tratando de armar un sistema contable en excel, y la siguiente macro es la que me permite ir acumulando los asientos, pero cuando la ejecuto me aparece "SE HA PRODUCIDO EL ERROR 1004 EN TIEMPO DE EJUCUCION: ERROR PRODUCIDO POR LA APLICACIÓN O EL OBJETO", necesito saber como lo soluciono, si me lo indicas en el macro que copie abajo te lo agradezco, ya que esta macro es la base del sistema contable:
Sub cargar_asiento()
Dim NRO_ASIENTO
' Consistencia de la carga
If Range("H18") = "Asiento Correcto" Then
' COPIANDO CARGA DE DATOS DE ASIENTO
Range("a5:h14").Select
Selection.Copy
' UBICARSE AL FINAL DE LA BASE DE ASIENTOS
Range("b5000").Select
Selection.End(x1Up).Select
Selection.Offset(1, -1).Select
' PEGAR DATOS ASIENTOS
Selection.PasteSpecial Paste:=x1values, Operation:=x1None, SkipBlanks:=False, Traspose:=False
' INICIO
Aplication.CutCopyMode = False
Range("b5").Select
' MENSAJE INDICANDO NUMERO DE ASIENTO
NRO_ASIENTO = Range("a5").Value
MsgBox ("Se ha contabilizado el asiento número" & NRO_ASIENTO)
' NUMERAR ASIENTO
Range("g5:h14,b5:d14").Select
Selection.ClearContents
Range("b5").Select
Else
MsgBox ("Existen errores en la carga del asiento, por favor verificar")
End If
End Sub