Вставка диапазона значений из одной книги в другую

Question

Таким образом, все на самом деле правильно вставлялось в рабочую книгу, однако я добавил дополнительный столбец данных, в который была введена формула.Теперь, когда я запускаю макрос, он копирует и вставляет формулу, а не значение, сгенерированное из формулы.

Я вошел и изменил wbData.ActiveSheet.Paste на wbData.ActiveSheet.PasteSpecial x1PasteValue, но он не работает.Хотите знать, если я вставил его в неправильное место?

 Dim wbTime As Workbook
   Set wbTime = ThisWorkbook
   Dim wbData As Workbook
   Dim LastRow As Long

   Set wbTime = ActiveWorkbook
   With wbTime.Sheets("Production Time Sheet")
       LastRow = .Range("A" & .Rows.Count).End(xlUp).Row
   End With
   wbTime.Sheets("Production Time Sheet").Range("A6:O" & LastRow).Copy

   Set wbData = Workbooks.Open("S:\Lean Carrollton Initiative\Michael\Time Sheet Data - LT Test.xlsx")

   wbData.ActiveSheet.PasteSpecial x1PasteValue Destination:=Worksheets("Log").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)

   wbData.Close SaveChanges:=True
End Sub

Answer 1

Я бы всегда выбирал диапазон для вставки слишком первым

Worksheets("Log").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValue