Sub check_inbound()
Dim arr_check As Variant
Dim t As Single
t = Timer
Application.ScreenUpdating = False
With Sheets("Приход")
    With .Range(.Cells(6, 2), .Cells(.UsedRange.Rows.Count, 2))
        .FormulaR1C1 = "=IF(COUNTIF(RC3:RC10,""""),""NOK"",""OK"")"
        .Calculate
        .Value = .Value
    End With
End With
t = Timer - t
MsgBox t
Application.ScreenUpdating = True
End Sub

.FormulaR1C1 = "=IF(COUNTBLANK(RC3:RC10),""NOK"",""OK"")"

keytip="б">

SheetsNames = Array("11", "TDSheet")

Sub Button()
Dim objExcel As Application
Dim wb As Workbook
Dim ws As Worksheet
Dim sh As Worksheet

Application.ScreenUpdating = False 'отключаем обновление экрана
'Set objExcel = New Excel.Application
'Set wb = objExcel.Workbooks.Open("123.xlsx")
Set wb = Workbooks.Open("123.xlsx")
Set ws = wb.Sheets(1)
Set sh = ThisWorkbook.Sheets(1)
'sh.Range("A1") = ws.Range("A1") ' - ВОТ ТАК РАБОТАЕТ
ws.Range("A1:E1").Copy Destination:=sh.Range("A1:E1") ' - А ВОТ ТАК ВЫДАЕТ ОШИБКУ
wb.Close
Application.ScreenUpdating = True 'возвращаем обновление экрана
End Sub

=ЕСЛИОШИБКА(СУММЕСЛИ(E6:P6;"<>0";E6:P6)/(СЧЁТЕСЛИ(E6:P6;"<>0")-СЧИТАТЬПУСТОТЫ(E6:P6));0)

ReDim Preserve arr(1 To 4, 1 To UBound(arr, 1) + 1)

Range("A1:D2") = Application.Transpose(arr)

'даем понять VBA, что все переменные, которым явно не назначен тип и которые начинаются с буквы L - должны иметь тип Long
DefLng L
Option Explicit
Sub TestVar()
    Dim lRow, lCol As String
    MsgBox "Тип переменной lRow: " & TypeName(lRow) & "; Тип переменной lCol: " & TypeName(lCol)
End Sub