Sub Main()

     Dim i As Integer
     Dim j As Integer

     i = 0

     With MainUserForm
          With .ListBox
               If .TextBox.Value = "" Then
                    .Clear
               Else: For Each Item In ItemsRange
                    For Each Number In NumbersRange
                         If Item = Number Then
                              .AddItem
                              For j = 1 To .ColumnCount
                                   .List(i, j - 1) = Item.Offset(0, j - 5)
                              Next
                              .List(i, 4) = Item
                              i = i + 1
                              j = j + 1
                         End If
                    Next
               Next
               End If
          End With
     End With

End Sub

MainUserForm.TextBox.Value

Sub SomeSubCode(i As Integer, x As Integer, firstRow As Range, SourceRange As Range)
     ...working code...
End Sub

SomeSubCode 0, 3, RowForInsertValue, EnvUsedRange

void functionName() {
}

int functionName() {
}

Sub PickAName_Click()
     Dim CleanName As String
     Dim SourceCell As Range
     Dim NameCell As Range
     Set SourceCell = ActiveWorkbook.Sheets("Лист1").Cells(1, 1)
     CleanName = Mid(SourceCell, InStr(SourceCell, """") + 1, Len(SourceCell) - 1)
     Set NameCell = ActiveWorkbook.Sheets("Лист1").Cells(1, 2)
     NameCell.Value = CleanName
Sub

=СУММЕСЛИМН(E3:E8;C3:C8;"кор")

=СУММЕСЛИМН(E4:E9;C4:C9;"меш")

ReDim Preserve MyList(UBound(MyList) - 1)

MyList = Array("Маша", "Лена", "Петя", "Саша")

With ComboBox
     .List = MyList
     .Value = MyList(0)
End With

Sheets("Лист1").Cells(1 + i, 1).Value = Cell.Offset(0, -2).Value
Sheets("Лист1").Cells(1 + i, 2).Value = Cell.Offset(0, -1).Value

With Sheets("Лист2")
     Set countryList = .Range("C1:C" & .Cells(.Rows.Count, "C").End(xlUp).Row)
End With

Private Sub CommandButton1_Click()
    Dim i As Integer
    Dim country As Variant
    Dim countryList As Range
    i = 0
    country = TextBox1.Value
    Set countryList = Worksheets("Лист2").Range("C1").End(xlDown)
    For Each Cell In countryList
        If Cell.Value = country Then
            Cell.Offset(0, -2).Value = Worksheets("Лист1").Cells(1 + i, 1).Value
            Cell.Offset(0, -1).Value = Worksheets("Лист1").Cells(1 + i, 2).Value
        End If
        i = i + 1
    Next
End Sub

=IF(COUNTA($Лист2.A:A)>=ROW();INDEX($Лист2.A:A;ROW());IF(COUNTA($Лист2.A:A)+COUNTA($Лист3.A:A)>ROW();INDEX($Лист3.A:A;ROW()+1-COUNTA($Лист2.A:A))))