Sub Button1_Click()
    lr = Cells(Rows.Count, "C").End(xlUp).Row
    For i = lr To 2 Step -1
        If Cells(i, "C") = "" And Cells(i, "D") <> "" And Cells(i - 1, "C") = "" And Cells(i - 1, "D") <> "" Then Rows(i).Delete
    Next
End Sub

Private Sub CommandButton1_Click()
    Dim i As Integer
    Dim country As Variant
    Dim countryList As Range
    i = 0
    country = TextBox1.Value
    With Sheets("Лист2")
        Set countryList = .Range("C1:C" & .Cells(.Rows.Count, "C").End(xlUp).Row)
    End With
    For Each Cell In countryList
        If Cell.Value = country Then
            Sheets("Лист1").Cells(1 + i, 1) = Cell.Offset(0, -2)
            Sheets("Лист1").Cells(1 + i, 2) = Cell.Offset(0, -1)
            i = i + 1
        End If
    Next
End Sub

Set countryList = Worksheets("Лист2").Range("C1").End(xlDown)

Sub Button1_Click()
    Application.ScreenUpdating = False
    lr = Cells(Rows.Count, 1).End(xlUp).Row
    If lr > 1 Then Range("A2:B" & lr).ClearContents
    cr = 2
    For i = 2 To Sheets.Count
        Cells(cr, "A") = Sheets(i).Name
        Cells(cr, "B") = Sheets(i).Cells(1, 1)
        cr = cr + 1
    Next
    Application.ScreenUpdating = True
    MsgBox "Готово!"
End Sub

=IF(AND(SUM(D$3:D3)>SUM(E$3:E3);C4="раб.день");SUM(D$3:D3)-SUM(E$3:E3);"")

ZZ = (x_R - x_razmer) / w_razmer 'w_R

 Ответ = UCase(oHttp.responseText)
   Cells(ActiveCell.Row, "E") = Ответ
   Cells(ActiveCell.Row, "D") = Mid(Ответ, InStr(InStr(1, Ответ, "EUR"), Ответ, "</TR>") - 18, 7)
   Курс = CCur(Mid(Ответ, InStr(InStr(1, Ответ, "EUR"), Ответ, "</TR>") - 18, 7))