Option Explicit
Sub MeinMakroTest()
Dim i As Long, j As Long, anz As Long
For i = 5 To 99
If Not IsEmpty(Cells(i, 12)) Then
On Error Resume Next
anz = Cells(i, 12).Value
On Error GoTo 0
Select Case anz
Case 0
anz = 1
Case Is > 0
anz = anz + 1
Case Else
Call MsgBox("unerlaubter Wert!", _
vbCritical Or vbDefaultButton1, _
"Fehler in Zeile" & CStr(i))
Exit Sub
End Select
For j = 1 To anz
Range(Cells(i, 1), Cells(i, 5)).Copy _
Destination:=Sheets("Test Makro").Range("A" & _
Sheets("Test Makro").Range("A1000000").End(xlUp).Row + 1)
Next j
End If
anz = 0
Next i
End Sub