Sub WEBForm()

Dim objWinHttp As New WinHttpRequest
Dim objHTMLDoc As New HTMLDocument
Dim objElement As Object

'Загрузка страницы с формой
objWinHttp.Open "GET", "http://************/form", False
objWinHttp.Send
objHTMLDoc.body.innerHTML = objWinHttp.responseText

'Проход по каждой строке таблицы и заполнение формы
For i = 1 To 1500
    ' Получение данных из таблицы
    name = Worksheets("Sheet1").Cells(i, 1).Value
    email = Worksheets("Sheet1").Cells(i, 2).Value
    phone = Worksheets("Sheet1").Cells(i, 3).Value
    
    ' Нахождение элементов формы и заполнение их
    Set objElement = objHTMLDoc.getElementById("name")
    objElement.Value = name
    Set objElement = objHTMLDoc.getElementById("email")
    objElement.Value = email
    Set objElement = objHTMLDoc.getElementById("phone")
    objElement.Value = phone
    
    '3. Отправка формы
    objWinHttp.Open "POST", "http://************/form", False
    objWinHttp.Send objHTMLDoc.forms(0)
    
    '4. Проверка ответа и обновление страницы
    If objWinHttp.Status = 200 Then
        ' Код для обновления страницы
    Else
        ' Код для обновления ошибки
    End If
Next i

End Sub