Приложение для вокзала

dim range1 as range
set range1 = Range("A1:C10") 
range1(1,1).Value= 1 '(строка, столбец)

Private Function sell() As Boolean
For Row = 1 To trainRange.Rows.Count
    If trainRange(Row, 1) = sellRange(1, 1) Then
    For col = 1 To sellRange.Columns.Count
        If trainRange(Row, col).Value <> sellRange(1, col).Value Then
            Exit For
        ElseIf col = sellRange.Columns.Count Then
            sell = True
            Exit Function
        End If
    Next
    End If
Next
End Function

Private Sub CommandButton5_Click()
For rowind = 2 To 50
   If DTPicker1.Value = Worksheets("общая").Cells(rowind, 1).Value And TextBox3.Value = Worksheets("общая").Cells(rowind, 2).Value And TextBox2.Value = Worksheets("общая").Cells(rowind, 3).Value Then
       Worksheets("общая").Cells(rowind, 4).Value = Worksheets("общая").Cells(rowind, 4).Value - TextBox4.Value
Exit For
   ElseIf Worksheets("общая").Cells(rowind, 1).Value = "" Then
        With Worksheets("Общая")
Cells(rowind, 1).Value = DTPicker1.Value
Cells(rowind, 2).Value = TextBox3.Value
Cells(rowind, 3).Value = TextBox2.Value
Cells(rowind, 4).Value = TextBox4.Value
        End With
Exit For
    End If
 
Next
End Sub

For rowind = 2 To 50

    For Each cell In ActiveWorkbook.Worksheets(2).Range("A1:A100").Cells
        Call UserForm1.ComboBox1.AddItem(cell.Value)
    Next

  While Sheets("Списки").Cells(nRow, nColumn) <> ""
    lstModels.AddItem Sheets("Списки").Cells(nRow, nColumn)
    nRow = nRow + 1
  Wend

  Range([P3], Range("P" & Rows.Count).End(xlUp)) ' Диапазон до последней строки

For Each cell In ActiveWorkbook.Worksheets(2).Range([A3], Range("A" & Rows.Count).End(xlUp)).Cells