Range("A3").FormulaR1C1 = "=IF(RC[1]>0,ROW()-ROW(R2C),"""")"
     Selection.AutoFill Destination:=Range("A3:A85"), Type:=xlFillDefault

Private Sub CommandButton1_Click()
 Select Case Me.ComboBox1.Value
        Case "Приложение №1":
           Dim wrkBook As Workbook
            Dim c As Range, d As Range, iLastRow As Long
                For Each c In Worksheets("Лоты").Range("D3:D10")
                    If c.Value = TextBox1.Value Then 'значение в textbox1
                         Debug.Print c.Resize(, 62).Address
                    End If
                Next c
                   
                       
         Set wrkBook = Workbooks.Open(ST)
         Stop
        With ThisWorkbook.Sheets("Лист1")
         iLastRow = Sheets("Лист1").Cells(Rows.Count, 1).End(xlUp).Row
            d.Copy .Sheets("Лист1").Cells(iLastRow + 1, 1)
            
    End With
                    wrkBook.Save
                    wrkBook.Close
                    Set wrkBook = Nothing
  
  End Select
End Sub

Private Sub Copy()
Dim c
For Each c in Worksheets("Sheet1").Range("D1:D10")
 If c.Value = NOW Then 
      ****** (тут вот не могу сообразить что написать)
   End If 
Next c
End Sub
Спасибо!

application.visible=true
userform.show
application.visible=false

Sub Formulas_To_Values()
    Selection.Value = Selection.Value
End Sub