[lxa85]

yulka6464, внимательнее относись к переменным.
Держи, должно работать. У меня в виртуальной машине только 2003 офис, т.ч. проверить все не смог.
Если где ошибся на единичку, я думаю тебе поправить меня труда не составит

Код:

Private Sub CommandButton1_Click()
Dim l As Integer, min As Integer, j As Integer, NData As Integer, k As Integer
Dim i As Integer, x As Integer
'давай переменный "говорящие названия" в процессе программирования i j l легко перепутать между собой
j = 12
min = Worksheets("Вычисления").Cells(j, 4)
For i = 1 To 10
    x = Worksheets("Вычисления").Cells(j + i, 4)
    If x < min Then
        min = x
        l = i
    End If
Next i
Worksheets("Вычисления").Cells(j + 18, 6) = min
Worksheets("Вычисления").Cells(j + 18, 9) = Cells(l, 3)

End Sub

Private Sub CommandButton2_Click()

Worksheets("Вычисления").Range("f29") = "" ' очистка ячейки f24
Worksheets("Вычисления").Range("f30") = "" ' очистка ячейки f25
Worksheets("Вычисления").Range("i30") = "" ' очистка ячейки i24

End Sub

Private Sub CommandButton3_Click()
Dim i As Integer, x As Integer
Dim j As Integer
'j можно посчитать лишней и заменить на константу 12, а можно и оставить
i = 0
j = 12               'строка с которой начинаются записи в таблице
Do Until Worksheets("Вычисления").Cells(j + i, 4) = "" 'проверяется условие - не являеся ли строка пустой
    i = i + 1         'подсчитывается количество заполненных строк
Loop
i = i + 1 'если честно, то данный шаг сомнителен

Worksheets("Вычисления").Cells(29, 6) = i

End Sub