Копирование диапазона ячеек в другую книгу

Question

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

Sub SaveInlife() 
    Dim wb As Workbook, NR As Long 
    Set wb = Workbooks.Open("C:\Users\caseys\Downloads\Operations Score Card.xlsx") 
    NR = Sheets("IN LIFE").Range("A" & Rows.Count).End(xlUp).Row + 1 

    With ThisWorkbook.Sheets("REPORT") 
    .Range("AB85").Copy Destination:=wb.Sheets("IN LIFE").Range("A" & NR) 
    End With 

    wb.Close savechanges:=True 
End Sub 

Answer 1

Фигурные его

Заменены

.Range("AB85").Copy Destination:=wb.Sheets("IN LIFE").Range("A" & NR) 

С

wb.Sheets("IN LIFE").Range("A" & NR).Value = .Range("AB85").Value 

Кажется делать то, что мне нужно, чтобы :)

Answer 2

не знаю, как сделать это в одной строке кода, но

.Range("AB85").Copy 
wb.Sheets("IN LIFE").Range("A" & NR).PasteSpecial xlValues