Excel y visual problema en entrada de ciclo

Hola,

Estoy construyendo un sistema de facturación con excel y visual basic pero tengo un problema al momento de grabar solo me graba el primer articulo y después sale.

Agrego la descripción:

Sub Grabar()
'
' Grabar Macro
'
Range("A8:F47").Copy
Range("K1").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("K2").Copy
Sheets("Archivio Fatture").Range("A2").Insert shift:=xlDown
Sheets("Fatture").Range("M2").Copy
Sheets("Archivio Fatture").Range("B2").Insert shift:=xlDown
Sheets("Fatture").Range("O2").Copy
Sheets("Archivio Fatture").Range("C2").Insert shift:=xlDown
Sheets("Fatture").Range("Q2").Copy
Sheets("Archivio Fatture").Range("D2").Insert shift:=xlDown
Sheets("Fatture").Range("S2").Copy
Sheets("Archivio Fatture").Range("E2").Insert shift:=xlDown
Sheets("Fatture").Range("K5").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("W1").Copy
Sheets("Archivio Fatture").Range("G2").Insert shift:=xlDown
Sheets("Fatture").Range("W2").Copy
Sheets("Archivio Fatture").Range("H2").Insert shift:=xlDown
Sheets("Fatture").Range("W6").Copy
Sheets("Archivio Fatture").Range("I2").Insert shift:=xlDown
Application.CutCopyMode = False
End If
End Sub
Sub ARTICULO2()
If Range("A21") = 0 Or Range("B21") = 0 Then
PARAR
Else
DATOSCLIENTES
Sheets("Fatture").Range("X1").Copy
Sheets("Archivio Fatture").Range("G2").Insert shift:=xlDown
Sheets("Fatture").Range("X2").Copy
Sheets("Archivio Fatture").Range("H2").Insert shift:=xlDown
Sheets("Fatture").Range("X6").Copy
Sheets("Archivio Fatture").Range("I2").Insert shift:=xlDown
Application.CutCopyMode = False
End If
End Sub
Sub ARTICULO3()
If Range("A22") = 0 Or Range("B22") = 0 Then
PARAR
Else
DATOSCLIENTES
Sheets("Fatture").Range("Y1").Copy
Sheets("Archivio Fatture").Range("G2").Insert shift:=xlDown
Sheets("Fatture").Range("Y2").Copy
Sheets("Archivio Fatture").Range("H2").Insert shift:=xlDown
Sheets("Fatture").Range("Y6").Copy
Sheets("Archivio Fatture").Range("I2").Insert shift:=xlDown
Application.CutCopyMode = False
End If
End Sub
Sub ARTICULO4()
If Range("A23") = 0 Or Range("B23") = 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("Z6").Copy
Sheets("Archivio Fatture").Range("I2").Insert shift:=xlDown
Application.CutCopyMode = False
End If
End Sub
Sub ARTICULO5()
If Range("A24") = 0 Or Range("B24") = 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("AA6").Copy
Sheets("Archivio Fatture").Range("I2").Insert shift:=xlDown
Application.CutCopyMode = False
End If
End Sub
Sub ARTICULO6()
If Range("A25") = 0 Or Range("B25") = 0 Then
PARAR
Else
DATOSCLIENTES
Sheets("Fatture").Range("AB1").Copy
Sheets("Archivio Fatture").Range("G2").Insert shift:=xlDown
Sheets("Fatture").Range("AB2").Copy
Sheets("Archivio Fatture").Range("H2").Insert shift:=xlDown
Sheets("Fatture").Range("AB6").Copy
Sheets("Archivio Fatture").Range("I2").Insert shift:=xlDown
Application.CutCopyMode = False
End If
End Sub
Sub ARTICULO7()
If Range("A26") = 0 Or Range("B26") = 0 Then
PARAR
Else
DATOSCLIENTES
Sheets("Fatture").Range("AC1").Copy
Sheets("Archivio Fatture").Range("G2").Insert shift:=xlDown
Sheets("Fatture").Range("AC2").Copy
Sheets("Archivio Fatture").Range("H2").Insert shift:=xlDown
Sheets("Fatture").Range("AC6").Copy
Sheets("Archivio Fatture").Range("I2").Insert shift:=xlDown
Application.CutCopyMode = False
End If
End Sub
Sub ARTICULO8()
If Range("A27") = 0 Or Range("B27") = 0 Then
PARAR
Else
DATOSCLIENTES
Sheets("Fatture").Range("AD1").Copy
Sheets("Archivio Fatture").Range("G2").Insert shift:=xlDown
Sheets("Fatture").Range("AD2").Copy
Sheets("Archivio Fatture").Range("H2").Insert shift:=xlDown
Sheets("Fatture").Range("AD6").Copy
Sheets("Archivio Fatture").Range("I2").Insert shift:=xlDown
Application.CutCopyMode = False
End If
End Sub
Sub ARTICULO9()
If Range("A28") = 0 Or Range("B28") = 0 Then
PARAR
Else
DATOSCLIENTES
Sheets("Fatture").Range("AE1").Copy
Sheets("Archivio...