'lngClnEnd = Cells(1, 256).End(xlToLeft).Column

'lngRowEnd = Columns(1).Rows(65536).End(xlUp).Row

'lngClnVal = Rows(1).Find(What:="Дата", LookAt:=xlWhole).Column

'lngRowVal = Columns(1).Find(What:=VINValue, LookAt:=xlWhole).Row

''Загрузка

' aTemp = Range(.Cells(2, lngClnStart), .Cells(lngRowEnd, lngClnEnd)).Value

''Выгрузка

'.Cells(2, 1).Resize(UBound(aTemp)) = aTemp

'.Cells(2, 1).Resize(UBound(aTemp), UBound(aTemp, 2)) = aTemp