=ДЛСТР(B3)-ДЛСТР(ПОДСТАВИТЬ(B3;"/";"";)

Sub sdf()

i_Row_dst = 10              ' с какой строки начать вставлять данные, на листе "цель"
List_Srs = "3.ШАБЛОН"       ' Лист Источник
List_Dst = "CSV_загрузка"   ' Лист цель
Count_Clmn = 19             ' количество перебираемых столбцов, на листе "источник"
Colum_Acc_Srs = 0           ' Колонка источник сч


    ' Удаление и создание нового листа "CSV_загрузка"
    ' все стирает
   ' Application.DisplayAlerts = False
  '  On Error Resume Next
   ' Worksheets(List_Dst).Delete
   ' Err.Clear
   ' Worksheets.Add.Name = List_Dst
   ' Application.DisplayAlerts = True


'Определяю размерено диапазона
lLastRow = Cells(Rows.Count, 2).End(xlUp).Row
Set MyRange = ActiveWorkbook.Worksheets(List_Srs).Range("K5:K" & lLastRow)


'перебираю, последовательное колонки
For iCounter_column = 0 To Count_Clmn


' в зависимости от номера колонки, разный источник.
    If MyRange.Cells(1, 1).Value = "24" Or _
        MyRange.Cells(1, 1).Value = "25" Or _
        MyRange.Cells(1, 1).Value = "26" Or _
        MyRange.Cells(1, 1).Value = "31" Or _
        MyRange.Cells(1, 1).Value = "32" Or _
        MyRange.Cells(1, 1).Value = "33" Or _
        MyRange.Cells(1, 1).Value = "37" Or _
        MyRange.Cells(1, 1).Value = "38" Or _
        MyRange.Cells(1, 1).Value = "39" Then
        
            Colum_Acc_Srs = 4
   
    ElseIf MyRange.Cells(1, 1).Value = "30" Then
            
            Colum_Acc_Srs = 0
    Else
            Colum_Acc_Srs = 6
    
    End If 'Colum_Acc


    

    
    If Colum_Acc_Srs <> 0 Then
        For Each MyCell In MyRange  ' перебираем каждый MyRange
            
       ' MyCell.Select
            
            ' Заполнениям данными целевой лист

            If MyCell.Value <> "" And MyCell.Row > 9 And MyCell.Value <> 0 And MyCell.Row <> 27 Then
                
                Row_Num_range = MyCell.Row
                
                 Worksheets(List_Dst).Cells(i_Row_dst, 10).Value = MyCell.Value
                 
                 Worksheets(List_Dst).Cells(i_Row_dst, 9).Value = Worksheets(List_Srs).Cells(Row_Num_range, Colum_Acc_Srs).Value
                 Worksheets(List_Dst).Cells(i_Row_dst, .Value = Worksheets(List_Srs).Cells(Row_Num_range, .Value
                    

                i_Row_dst = i_Row_dst + 1   ' переменная для построчной записи
            End If
        Next MyCell
    
    
    End If '0
    
    'переопределяем MyRange с шагом 1
    Set MyRange = MyRange.Offset(columnOffset:=1)   ' приступаю к следующей колонки


Next 'iCounter_column

End Sub