1004 Globaler Fehler - Excel VBA

Question

Mein Code funktioniert nicht. Ich möchte A2 + 1 = A3 in Makros tun, aber wenn ich versuchte, p als Integer zu verwenden, gibt es mir 1004 Global Error. Wie zu tun (n,1) A2 + 1 = A3 in Excel VBA?

Sub agregarproducto() 

Range("A7:G7").Select 
Range("G7").Activate 
Selection.Copy 

Dim p As Integer 

p = 0 
p = Range("A2:A50").Count 
p = p + 1 

Range(p, 1).Select 
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _ 
xlNone, SkipBlanks:=False, Transpose:=False 

    Range("E2:E3").Select 
    ActiveCell.FormulaR1C1 = "0" 
    Range("L11").Select 
    ActiveCell.FormulaR1C1 = "1" 

End Sub 

Answer 1

ändern

Range(p, 1).Select 

zu

Cells(p, 1).select