Выберите фиксированные столбцы в VBA

Мне нужна помощь с этим VBA. Заранее спасибо.

Я хочу выбрать диапазон (значений, весь столбец) для значений: FirstDate , EndDate и номер . Мой VBA:

Sub DateTest()
    Dim FirstDate As Date    ' Declare variables.
    Dim IntervalType As String
    Dim Number As Integer
    Dim EndDate As Date
    Dim TempDate As Date
    Dim i As Integer

    IntervalType = "m" ' "m" specifies MONTHS as interval.
    FirstDate = Cells(1, 1).Value
    EndDate = Cells(1, 2).Value
    Number = Cells(1, 3).Value  ' "Number" For the syntax DateAdd.

    ' If the number is not greater than zero an infinite loop will happen.
    If Number <= 0 Then
        MsgBox "Number needs to be greater than 0", vbCritical
        Exit Sub
    End If

    i = 1
    Do Until TempDate = EndDate
       If i <= 1 Then
           TempDate = DateAdd(IntervalType, Number, FirstDate)
       Else
           TempDate = DateAdd(IntervalType, Number, TempDate)
        End If
        i = i + 1
        Debug.Print i
    Loop
    Range("D1").Value = i - 1
End Sub

Как я уже писал ранее, я хочу запускать свой макрос не только для 1-й ячейки (в настоящее время макрос отлично работает для значения (1,1) (1,2) (1,3) ), так как Вы можете увидеть выше для FirstDate , EndDate и Number . Я хочу использовать для всех дат в: Столбец1 , Столбец2 , Столбец3

Я сделал некоторые изменения, например, для EndDate:

EndDate = Format(.Cells(lRow, 2).Value)

Не работает, возьмите вейл для 1 ячейки, а остальные значения в столбце игнорируются.

Я старался:

    FirstDate = Range("A1:A20").Select

    EndDate = Range("B1:B20").Select

    Number = Range("C1:C20").Select

Но я получаю: «Число должно быть больше 0»