If b(i,5)<>"" then
действие
End if

If b(i,5) <>"" and iserror b(i,5) =false then

Sub mass()
fldr = "C:\"
s = "testdata-1000.csv"

b = TextFile2Array(, fldr, , s)
End sub
____________________________
Function TextFile2Array(Optional ByVal Title As String = "Выберите файл для обработки", _
                        Optional ByVal InitialPath As String = "c:\", _
                        Optional ByVal FilterDescription As String = "Текстовые файлы", _
                        Optional ByVal FilterExtention As String = "*.*", _
                        Optional ByVal ColumnsSeparator$ = ";", _
                        Optional ByVal RowsSeparator$ = "?") As Variant 'какой должен быть разделитель строк?

    On Error Resume Next

    With Application.FileDialog(msoFileDialogOpen)    ' диалоговое окно выбора файла CSV
        .ButtonName = "Выбрать": .Title = Title: .InitialFileName = InitialPath
        .Filters.Clear: .Filters.Add FilterDescription, FilterExtention
        If .Show <> -1 Then Exit Function
        filename$ = .SelectedItems(1)
    End With
    Set FSO = CreateObject("scripting.filesystemobject")    ' читаем текст из выбранного файла
    Set ts = FSO.OpenTextFile(filename$, 1, True): txt$ = ts.ReadAll: ts.Close
    Set ts = Nothing: Set FSO = Nothing
    txt = Trim(txt): Err.Clear    ' разделяем текст на строки и столбцы
    If txt Like "*" & RowsSeparator$ Then txt = Left(txt, Len(txt) - Len(RowsSeparator$))
    tmpArr1 = Split(txt, RowsSeparator$): RowsCount = UBound(tmpArr1) + 1
    ColumnsCount = UBound(Split(tmpArr1(0), ColumnsSeparator$)) + 1
    If Err.Number > 0 Then MsgBox "Строка не может быть разбита на двумерный массив", vbCritical: End
    ReDim arr(1 To RowsCount, 1 To ColumnsCount)
    For i = LBound(tmpArr1) To UBound(tmpArr1)
        tmpArr2 = Split(Trim(tmpArr1(i)), ColumnsSeparator$)
        For j = 1 To UBound(tmpArr2) + 1
            arr(i + 1, j) = tmpArr2(j - 1)
        Next j
    Next i
    TextFile2Array = arr    ' возвращаем результат в виде двумерного массива
End Function

Sub NewVPR()

    Dim a()
    Dim i&
    Dim sd As Object
    Dim sh1 As Worksheet: Set sh1 = Workbooks("Пример.xlsb").Sheets(1)
    Dim sh2 As Worksheet: Set sh2 = ActiveSheet

    a = sh1.UsedRange.Value
    Set sd = CreateObject("Scripting.Dictionary")
    For i = 1 To UBound(a)
      Key = a(i, 1) ' получаем ключ из первого столбца текущей строки массива
      Item = a(i, 7) ' получаем элемент из седьмого столбца текущей строки массива
      sd.Add Key, Item ' и добавляем новый элемент в коллекцию
    Next
    a = sh2.UsedRange.Value
    For i = 1 To UBound(a)
        If sd.Exists(a(i, 1)) Then a(i, 8) = sd.Item(a(i, 1))

    Next
    sh2.Cells(1, 1).Resize(UBound(a), UBound(a, 2)) = a
End Sub

a = sh1.UsedRange.Value
    Set sd = CreateObject("Scripting.Dictionary")
    For i = 1 To UBound(a)
      Key = a(i, 1)
      Item = a(i, 7) 
      sd.Add Key, Item 
    Next

Set x = Workbooks(xFile).Worksheets(xsheet).Rows(1).find("Поставщик", , xlFormulas, xlWhole)
   x1 = x.Column
 Cells(2, x1).FormulaR1C1 = "=VLOOKUP(C1,'[" & "Расчет_общий.xlsb" & "]" & xsheets & "'!C1:C8,8,0)" 
...
Application.Calculation = xlCalculationManual
Range("H2:S2").AutoFill Destination:=Range("H2:S" & xlastrow)
Application.Calculation = xlCalculationAutomatic
Range("H2:S" & xlastrow).Value = Range("H2:S" & xlastrow).Value

For i=1 to lastrow  
For i1=1 to lastrow2   
If cells(i,1)=cells(i1,1) then   
cells(i,10)=cells(i1,18) and _   
cells(i,12)=cells(i1,22) and _   
....   
End if  
Next i1
Next i

For i = 0 to 1000
  If b(56,i)="DRINK" then
    Workbooks("test").worksheets("test").range(cells(lr,1),cells(lr,lc))= range(b(0,i),b(135,i)) 'что-то вроде этого мне нужно
  End if
Next

Sub vremya()
Dim lr As Long
Dim lr3 As Long

lr = Sheets("2").Cells(Rows.Count, 1).End(xlUp).Row
lr3 = 2
For i = 3 To lr
  If Sheets("2").Cells(i, 5).Value > 0.0209 Then
    Sheets("3").Cells(lr3, 5) = Sheets("2").Cells(i, 1)
    Sheets("3").Cells(lr3, 6) = Sheets("2").Cells(i, 2)
    Sheets("3").Cells(lr3, 7) = Sheets("2").Cells(i, 3)
    Sheets("3").Cells(lr3, 9) = Sheets("2").Cells(i, 5)
    lr3 = lr3 + 1
  End If
Next
Sheets("3").Cells(2, 8) = lr3 - 2 
  
End Sub

entireRow.hidden

Dim myrows As Range
Set myrows = Sheets("лист1").Range(Rows(15), Rows(21))

myrows.Hidden = True  'скрыть строки
myrows.Hidden = False  'показать строки

sheets("лист1").Rows("15:21").Hidden = True  'скрыть строки
sheets("лист1").Rows("15:21").Hidden = False  'показать строки