For i = 2 To CD_callendRow
    currentStation = Cells(i, CD_stationColumn).Value

    If Cells(i, CD_uniqueduplicateColumn) = "Unique" Then
        If Cells(i, CD_durationcategoryColumn) = ">1" Then
            internalFile.Cells(stationDict(currentStation), WT_01Column).Value = internalFile.Cells(stationDict(currentStation), WT_01Column).Value + 1
        ElseIf Cells(i, CD_durationcategoryColumn) = ">30" Then
            internalFile.Cells(stationDict(currentStation), WT_01Column).Value = internalFile.Cells(stationDict(currentStation), WT_01Column).Value + 1
            internalFile.Cells(stationDict(currentStation), WT_30Column).Value = internalFile.Cells(stationDict(currentStation), WT_30Column).Value + 1
        ElseIf Cells(i, CD_durationcategoryColumn) = ">60" Then
            internalFile.Cells(stationDict(currentStation), WT_01Column).Value = internalFile.Cells(stationDict(currentStation), WT_01Column).Value + 1
            internalFile.Cells(stationDict(currentStation), WT_30Column).Value = internalFile.Cells(stationDict(currentStation), WT_30Column).Value + 1
            internalFile.Cells(stationDict(currentStation), WT_60Column).Value = internalFile.Cells(stationDict(currentStation), WT_60Column).Value + 1
        ElseIf Cells(i, CD_durationcategoryColumn) = ">600" Then
            internalFile.Cells(stationDict(currentStation), WT_01Column).Value = internalFile.Cells(stationDict(currentStation), WT_01Column).Value + 1
            internalFile.Cells(stationDict(currentStation), WT_30Column).Value = internalFile.Cells(stationDict(currentStation), WT_30Column).Value + 1
            internalFile.Cells(stationDict(currentStation), WT_60Column).Value = internalFile.Cells(stationDict(currentStation), WT_60Column).Value + 1
            internalFile.Cells(stationDict(currentStation), WT_600Column).Value = internalFile.Cells(stationDict(currentStation), WT_600Column).Value + 1
        End If
    End If
Next