Problema en visual Basic de excel

Hola,

Tengo un problema en la rutina y es que cuando me graba el primer articulo no entra en el segundo y se para.

Sub Grabar()
'
' Grabar Macro
'
Range("A8:J47").Copy
Range("N1").Select
Selection.PasteSpecial
Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=True,
Transpose:=True
Application.CutCopyMode = False
End Sub
Sub DATOSCLIENTES()
'COPIA DATOS DEL CLIENTE A LA HOJA DE FACTURACIÓN
'
Sheets("Fatture").Range("N2").Copy
Sheets("Archivio
Fatture").Range("A2").Insert shift:=xlDown
Sheets("Fatture").Range("P2").Copy
Sheets("Archivio
Fatture").Range("B2").Insert shift:=xlDown
Sheets("Fatture").Range("R2").Copy
Sheets("Archivio
Fatture").Range("C2").Insert shift:=xlDown
Sheets("Fatture").Range("T2").Copy
Sheets("Archivio
Fatture").Range("D2").Insert shift:=xlDown
Sheets("Fatture").Range("V2").Copy
Sheets("Archivio
Fatture").Range("E2").Insert shift:=xlDown
Sheets("Fatture").Range("N9").Copy
Sheets("Archivio
Fatture").Range("F2").Insert shift:=xlDown
Application.CutCopyMode = False
'COPIA Nº REGISTRO Y NUMERO DE FACTURA A DATI DI ARCHIVIO
'Sheets("Fatture").Range("K2").Copy
'Sheets("Archivio
Dati").Range ("A6")
'Sheets("Fatture").Range("O2").Copy
'Sheets("Archivio
Dati").Range ("B6")
'Application.CutCopyMode
= False
Range("B8").Select
Selection.Copy
ActiveWindow.ScrollWorkbookTabs
Position:=xlLast
Sheets("Archivio Dati").Select
Range("A6").Select
Selection.PasteSpecial
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.ScrollWorkbookTabs
Position:=xlFirst
Sheets("Fatture").Select
Range("B12").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs
Position:=xlLast
Sheets("Archivio Dati").Select
Range("B6").Select
Selection.PasteSpecial
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Sub
IMPRIMIR()
'IMPRIME EN PANTALLA DATOS DE LA FACTURA
ActiveWindow.SelectedSheets.PrintOut From:=1,
To:=1, Copies:=1
End Sub
Sub
ARTICULO1()
If
Range("A20") = 0 Or Range("B20") = 0 Then
PARAR
Else
DATOSCLIENTES
Sheets("Fatture").Range("Z1").Copy
Sheets("Archivio
Fatture").Range("G2").Insert shift:=xlDown
Sheets("Fatture").Range("Z2").Copy
Sheets("Archivio
Fatture").Range("H2").Insert shift:=xlDown
Sheets("Fatture").Range("Z7").Copy
Sheets("Archivio
Fatture").Range("I2").Insert shift:=xlDown
Sheets("Fatture").Range("Z8").Copy
Sheets("Archivio
Fatture").Range("J2").Insert shift:=xlDown
Sheets("Fatture").Range("Z9").Copy
Sheets("Archivio
Fatture").Range("K2").Insert shift:=xlDown
Sheets("Fatture").Range("Z10").Copy
Sheets("Archivio
Fatture").Range("L2").Insert shift:=xlDown
Sheets("Fatture").Range("AP10").Copy
Sheets("Archivio
Fatture").Range("M2").Insert shift:=xlDown
Sheets("Fatture").Range("AQ10").Copy
Sheets("Archivio
Fatture").Range("O2").Insert shift:=xlDown
Sheets("Fatture").Range("AR10").Copy
Sheets("Archivio
Fatture").Range("P2").Insert shift:=xlDown
Sheets("Fatture").Range("AS10").Copy
Sheets("Archivio
Fatture").Range("R2").Insert shift:=xlDown
Sheets("Fatture").Range("AT10").Copy
Sheets("Archivio
Fatture").Range("S2").Insert shift:=xlDown
Sheets("Fatture").Range("AU10").Copy
Sheets("Archivio
Fatture").Range("T2").Insert shift:=xlDown
Sheets("Fatture").Range("AV10").Copy
Sheets("Archivio
Fatture").Range("U2").Insert shift:=xlDown
Sheets("Fatture").Range("AX1").Copy
Sheets("Archivio
Fatture").Range("V2").Insert shift:=xlDown
Sheets("Fatture").Range("BA3").Copy
Sheets("Archivio
Fatture").Range("W2").Insert shift:=xlDown
Application.CutCopyMode
= False
End If
End Sub
Sub ARTICULO2()
MsgBox ("Estoy en articulo2")
If
Range("A21") = 0 Or Range("B21") = 0 Then
PARAR
Else
DATOSCLIENTES
Sheets("Fatture").Range("AA1").Copy
Sheets("Archivio
Fatture").Range("G2").Insert shift:=xlDown
Sheets("Fatture").Range("AA2").Copy
Sheets("Archivio
Fatture").Range("H2").Insert shift:=xlDown
Sheets("Fatture").Range("AA7").Copy
Sheets("Archivio
Fatture").Range("I2").Insert shift:=xlDown
Sheets("Fatture").Range("AA8").Copy
Sheets("Archivio
Fatture").Range("J2").Insert shift:=xlDown
Sheets("Fatture").Range("AA9").Copy
Sheets("Archivio
Fatture").Range("K2").Insert shift:=xlDown
Sheets("Fatture").Range("AA10").Copy
Sheets("Archivio
Fatture").Range("L2").Insert shift:=xlDown
Sheets("Fatture").Range("AP10").Copy
Sheets("Archivio
Fatture").Range("M2").Insert shift:=xlDown
Sheets("Fatture").Range("AQ10").Copy
Sheets("Archivio
Fatture").Range("O2").Insert shift:=xlDown
Sheets("Fatture").Range("AR10").Copy
Sheets("Archivio
Fatture").Range("P2").Insert shift:=xlDown
Sheets("Fatture").Range("AS10").Copy
Sheets("Archivio Fatture").Range("R2").Insert
shift:=xlDown
Sheets("Fatture").Range("AT10").Copy
Sheets("Archivio
Fatture").Range("S2").Insert shift:=xlDown
Sheets("Fatture").Range("AU10").Copy
Sheets("Archivio
Fatture").Range("T2").Insert shift:=xlDown
Sheets("Fatture").Range("AV10").Copy
Sheets("Archivio
Fatture").Range("U2").Insert shift:=xlDown
Sheets("Fatture").Range("AX1").Copy
Sheets("Archivio
Fatture").Range("V2").Insert shift:=xlDown
Sheets("Fatture").Range("BA3").Copy
Sheets("Archivio
Fatture").Range("W2").Insert shift:=xlDown
Application.CutCopyMode = False
End If
End Sub
Sub
GENERAFACTURA()
If
Range("G10") = 0 Then
MsgBox ("INTRODUCIR UN CLIENTE")
Else
If
Range("A20") > 0 And Range("B20") = 0 Then
PARAR
ElseIf Range("A21") <> 0 And
Range("B21") = 0...