Complete online form VBA

I have created a test form here https://form.jotformeu.com/91133129129351 and I am trying to fill it out with values I have in a excel file.

My code stops at the line: 'Call ie.Document.getelementbyid("input_11").setAttribute("value", activity)' and it does not copy the data from the first cell, this is how my excel file looks like: https://imgur.com/a/wJQxPks

'Sub internet()

Dim ie As Object
Dim activitate As String
Dim LastRow As Long
Dim i, j As Integer
i = 1
LastRow = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row - 1
j = 0

'open page
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.Navigate "https://form.jotformeu.com/91133129129351"
Do
DoEvents
Loop Until ie.ReadyState = 4

While i < 11
For Each c In Range("2:2")
activity = c.Value
Call ie.Document.getelementbyid("input_11").setAttribute("value", activity)
Next c
Wend


End Sub'

I'm trying to get past this code error, thank you for your time!