I do not see why you could not use a variation of my macro to do what you describe. However, it makes sense to first try tracing (with a 10046 level 4 trace) what the program does when the supplier delivery dates are modified through the application interface. You only need to be concerned with those SQL statements that are indicated with dep=0. There is a chance that the application interface also updates rows in other tables when the dates are changed.

Note that the macro in this article moves down column A in a worksheet, stopping when the first blank cell in column A is found. So, what if you need the macro to continue searching through the rows until the last row in the worksheet is reached (skipping those rows with a blank in the searched column)? You can modify the macro similar to the following – note that cell A1 must contain something, even a blank space, for the macro to work correctly, so that is why the macro checks that cell. Notice that this macro references the cells using row, column syntax rather than D1, D2, D3, etc. syntax:

Sub CheckSpreadsheet()
    Dim lngRows As Long
    Dim lngCols As Long
    
    Dim i As Long
    Dim j As Long
    
    Dim strExcelValue As String
    Dim strSQL As String
    
    Dim dbMyDB As New ADODB.Connection
    Dim snpData As New ADODB.Recordset
    
    'You must create a reference to Microsoft ActiveX Data Objects (Tools menu)
    'Make sure that we don't crash - will look ugly if our macro crashes
    On Error Resume Next
    'Replace MyODBCConnection with an ODBC connection name, MyUserName with a database user name and MyPassword with the user's password
    dbMyDB.ConnectionString = "Data Source=MyODBCConnection;User ID=MyUserName;Password=MyPassword;"
    dbMyDB.ConnectionTimeout = 40
    dbMyDB.CursorLocation = adUseClient
    dbMyDB.Open

    'Cell A1 (referenced by ActiveSheet.Cells(1, 1)) must not be blank
    If ActiveSheet.Cells(1, 1) = "" Then
        ActiveSheet.Cells(1, 1) = " "
    End If
    
    lngRows = ActiveSheet.UsedRange.Rows.Count
    lngCols = ActiveSheet.UsedRange.Columns.Count
    
    MsgBox "Row Count: " & Format(lngRows)
    MsgBox "Column Count: " & Format(lngCols)
    
    i = 4 'We will check the values in the fourth column (D)
    
    For j = 1 To lngRows
        strExcelValue = Format(ActiveSheet.Cells(j, i).Value)
        If strExcelValue = "" Then
            'There is nothing in this cell, skip the row
        Else
            'Run the SQL statement here
            MsgBox strExcelValue
        End If
    Next j
    
    dbMyDB.Close
    Set snpData = Nothing
    Set dbMyDB = Nothing
End Sub

It would save a lot of time rather than going into Oracle and having to change each line manually. Particularly when you have to update over 100 lines.