s = 1
    For j = 1 To UBound(n_org)
        For i = 1 To lLastColOrg
            If ar_org_t(1, i) = n_org(j) Then
                n_org_i(s) = i
                s = s + 1
            End If
        Next
    Next
    nn = UBound(n_org_i)

ar = Range(Cells(1, 1), Cells(1, ILastColOrg)).Value 'копируем шапку с названием строк
'находим первый нужный столбец
For i to ILastColOrg
   if ar(1,i)="Название нужного столбца"
      n1=i 'запомнили номер
   End IF
Next
For i to ILastColOrg
   if ar(1,i)="Название нужного столбца2"
      n21=i 'запомнили номер
   End IF
Next
'и потом раз 15 скопировать нужные данные
ar = Range(Cells(1, 1), Cells(n1, ILastColOrg)).Value
ar = Range(Cells(1, 1), Cells(n2, ILastColOrg)).Value

ar = Range(Cells(1, 1), Cells(ILastrowOrg, 10)).Value    
ar2 = Range(Cells(1, 10), Cells(5ILastrowOrg, 20)).Value
ar2 = Range(Cells(1, 20), Cells(5ILastrowOrg, 30)).Value

Dim ar As Variant