1004 Глобальная ошибка - Excel VBA

Question

Мой код не работает. Я хочу сделать A2 + 1 = A3 в макросах, но когда я попытался использовать p как целое, он дает мне 1004 Global Error. Как сделать (n,1) A2 + 1 = A3 в 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

Изменить

Range(p, 1).Select 

в

Cells(p, 1).select