Private Sub UserForm_Initialize()
Dim ArrSpisok() As Long
ArrSpisok = ActiveSheet.ListObjects("Список").DataBodyRange.Value ' имеется Таблица "Список"
UserForm1.ComboBox1.Value = ArrSpisok
End Sub

Dim a  
a=[a1:b100] 

a=[a1:b100].Value 

Sub io()  
Dim v, x  'Объявление и инициализация массива Dim, Private, Public, ReDim, Static https://msdn.microsoft.com/RU-RU/library/office/gg251320.aspx
' но не указыван тип? https://msdn.microsoft.com/ru-ru/library/office/gg251750.aspx
With Sheets("СПБ") ' 'Оператор With используется для указания объекта, с которым мы будем работать. 
'Здесь Лист СПБ. Sheets это вроде коллекция?
v = .Range(.[A3], .Cells(.UsedRange.Rows.Count, "R")).Value ' массив таблицы  - там таблица от A до R 
'квадратные скобки А3 
'Свойства CurrentRegion и UsedRange  очень полезны, когда программа работает с диапазонами, размерами которых Вы не можете управлять.
' Мы не знали колличство строк поэтому вместо строк пишем .UsedRange.Rows.Count?  
'правда это была инфа из "MS Office. Руководство программиста по Visual Basic для MS Office 97" http://mf.grsu.by/UchProc/konspekt/VBA/ch02/ch04/ch03
ReDim x(1 To UBound(v), 1 To 18)   'Меняем размер массива?
End With  
End Sub

Dim A As Variant
A = Array(10,20,30)
B = A(2)

Sub Макрос7()   
    i = Application.Match(Cells(23, 1), Range("A2:A20"), 0)   
    j = Application.Match(Cells(23, 2), Range("B1:G1"), 0)   
    Cells(24, 1).Value = Application.Index(Range("B2:G20"), i, j)   
End Sub

Private Sub ComboBox3_Change()
    If ComboBox3 = "Начисление" Then
        TextBox1.Visible = True
    ElseIf ComboBox3.Value = "Траты" Then
        TextBox1.Visible = True
    ElseIf ComboBox3.Value = "Отпуск" Then
        TextBox1.Visible = True
    Else
        TextBox1.Visible = False
    End If
End Sub

If arg1 = "someText" OR "SomeOtherText" 

  If ComboBox3 = "Начисление" Or "Отпуск" Then 
        TextBox1.Visible = True
    Else
        TextBox1.Visible = False
    End If

.Cells(lRw, 1).Value = Label8.Caption         
.Cells(lRw, 2).Value = ComboBox1.Value

.Cells(lRw, 1).Value = Label8.Caption         
.Cells(lRw, 2).Value = ComboBox2.Value

If ComboBox2.Value = True Then
            lRw2 = .Cells(.Rows.Count, "A").End(xlUp).Row + 2
            .Cells(lRw2, 1).Value = Label8.Caption .
            .Cells(lRw2, 2).Value = ComboBox1.Value
            .Cells(lRw2, 3).Value = ComboBox3.Value
        End If

Private Sub CommandButton1_Click()
' определяем последнюю заполненную ячейку в столбце А
' и смещаемся на одну ячейку вниз, чтобы получить незаполненную ячейку
    Dim ra As Range
    Set ra = Range("A" & Rows.Count).End(xlUp).Offset(1)
    ra = Label8
End Sub

=ЕСЛИ((Ячейка_генерации>10);(-(10-Ячейка_генерации);Ячейка_генерации)