Definition dynamic minverse

[georgelampiris]

I have the following code. Is there anyone who can help me? There is a problem with the range definitions

Sub array13()
Dim x As Integer, k As Integer
x = InputBox("give the range")
Sheets("perifA").Select
Range("A1").CurrentRegion.Select
gram = Selection.Rows.Count
stiles = Selection.Columns.Count
Sheets("Leontief").Select
Range(Cells(1, 1), Cells(gram, stiles)).Select

Selection.FormulaArray = "=MINVERSE(perifA!Range(cells(1,1),cells(x,x)))"

End Sub