После запуска функции VBA # N / A в ячейках

Приведенный ниже код функционирует должным образом: он вставляет диапазон ячеек из листа «Данные GP» в «RAW». Первый раздел кода копирует диапазон 3×3, а последний код копирует диапазон 4×4.

Более ранний код выполняется без значения ошибки, как показано на рисунке ниже.

Однако последний код выполняет требуемую функцию, но всегда создает ячейки с #N/A в следующем столбце после того, как данные были вставлены.

 arrData = Sheets("GP Data").Range("U12:U14").Value Set rngwrite = Nothing Set rngwrite = Sheets("DZ").Range("A:A").Find(strdate, LookIn:=xlFormulas) Do While rngwrite Is Nothing With Sheets("DZ").Range("A60000") .End(xlUp).AutoFill (.End(xlUp).Resize(2)) End With Set rngwrite = Sheets("DZ").Range("A:A").Find(CDate(strdate), LookIn:=xlFormulas) Loop rngwrite.Offset(, 1).Resize(, 3).Value = Application.Transpose(arrData) arrData = Sheets("GP Data").Range("P12:R14").Value 'find get the first non-blank column in row 7 from right to left Set rngwrite = Sheets("RAW").Range("IV7").End(xlToLeft).Offset(, 1) 'paste data rngwrite.Resize(3, 3).Value = arrData 'drag dates across row 7 rngwrite.Offset(-1).Value = rngwrite.Offset(-1, -3).Value + 1 

введите описание изображения здесь

 arrData = Sheets("GP Data").Range("U12:U15").Value Set rngwrite = Nothing Set rngwrite = Sheets("DZ").Range("A:A").Find(strdate, LookIn:=xlFormulas) Do While rngwrite Is Nothing With Sheets("DZ").Range("A60000") .End(xlUp).AutoFill (.End(xlUp).Resize(2)) End With Set rngwrite = Sheets("DZ").Range("A:A").Find(CDate(strdate), LookIn:=xlFormulas) Loop rngwrite.Offset(, 1).Resize(, 4).Value = Application.Transpose(arrData) arrData = Sheets("GP Data").Range("P12:R15").Value 'find get the first non-blank column in row 7 from right to left Set rngwrite = Sheets("RAW").Range("IV7").End(xlToLeft).Offset(, 1) 'paste data rngwrite.Resize(4, 4).Value = arrData 'drag dates across row 7 rngwrite.Offset(-1).Value = rngwrite.Offset(-1, -3).Value + 1 

Давайте будем гением компьютера.