Copy Paste as Values

[tomexcel1]

Hi All,

I have the following code that copy's data from one workbook to another, I'm having issues pasting the data as values. Can anyone help please.

Sub CopyToRejectionWorkbook()

Dim wsCopy As Worksheet
Dim wsPaste As Worksheet
Dim lPasteLastRow As Long


  
Set wsCopy = Workbooks(Sheet15.Range("O30").Value).Worksheets("Rejection Info")
Set wsPaste = Workbooks(Sheet15.Range("X24").Value & ".xlsx").Worksheets("rejections")
    
lPasteLastRow = wsPaste.Cells(wsPaste.Rows.Count, "A").End(xlUp).Offset(1).Row


wsCopy.Range("O24:Z24").Copy wsPaste.Range("A" & lPasteLastRow)
    
End Sub

Thanks All

 

[Fluff]

How about

wsPaste.Range("A" & lPasteLastRow).Resize(, 12).Value = wsCopy.Range("O24:Z24").Value

 

[tomexcel1]

Works perfect! Thank you as always!

Tom

 

[Fluff]

Glad to help & thanks for the feedback