Private Sub Workbook_Open()
    Application.ScreenUpdating = 0
    Application.Calculation = 3
    r0_ = 2
    nc_ = Cells(r0_, Columns.Count).End(1).Column - 1
    ar = Cells(r0_, 2).Resize(, nc_).Value
    For i = 2 To nc_
        If ar(1, i) = Date Then
            c_ = i + 1
        End If
    Next i
    If c_ = 0 Then
        MsgBox "В строке 2 нет текущей даты. Заполняйте сами как хотите."
        Exit Sub
    End If
    Do Until z_ <> ""
    z_ = InputBox("Введите параметр 1", "Здрасьти")
    Loop
    r_ = 3
    Cells(r_, c_) = z_
    Do Until z1_ <> ""
    z1_ = InputBox("Введите параметр 2", "И снова здрасьти")
    Loop
    r_ = 4
    Cells(r_, c_) = z1_
    Application.Calculation = 1
    Application.ScreenUpdating = 1
End Sub

    nr_ = Cells(Rows.Count, 1).End(3).Row - 1 'кол-во строк
    ar = Cells(2, 1).Resize(nr_).Value 'все из первого столбца (даты) суем в массив
    For i = 2 To nr_ 'цикл по массиву
        If ar(i, 1) = Date Then 'если i-й элемент массива равен текущей дате (Date)
            r_ = i + 1 'присваиваем переменной r значение i+1 - это и будет номер нужной строки
            Exit For 'выход из цикла
        End If '
    Next i