Координаты фигур(макрос)

Sub g(n, k, x, y)
For i = n To k
    ActiveSheet.Shapes.AddShape(msoShapeOval, x, y, 10, 10).Select
  
x = x + 10
Next
End Sub
-----
Sub v(n, k, x, y)
For i = n To k
    ActiveSheet.Shapes.AddShape(msoShapeOval, x, y, 10, 10).Select
y = y + 10
Next
End Sub
-----
Sub u(n, k, x, y)
For i = n To k
    ActiveSheet.Shapes.AddShape(msoShapeOval, x, y, 10, 10).Select
    
Next
End Sub
-----
Sub plus(x, y, n)

ActiveSheet.Shapes.AddShape(msoShapeOval, x, y, 10, 10).Select
For i = 1 To n
ActiveSheet.Shapes.AddShape(msoShapeOval, x, y - i * 10, 10, 10).Select
ActiveSheet.Shapes.AddShape(msoShapeOval, x, y + i * 10, 10, 10).Select
ActiveSheet.Shapes.AddShape(msoShapeOval, x - i * 10, y, 10, 10).Select
ActiveSheet.Shapes.AddShape(msoShapeOval, x + i * 10, y, 10, 10).Select
Next
End Sub
-----
Sub pod()

plus 100, 100, 5



End Sub