VBA: Copy and paste values in next empty row in other sheet

0
votes

I'm trying to copy a range from "Sheet1" and pasting values, not code, to the next empty row in "Sheet2". I have found this code but it only copys and pastes code:

Sheets("Sheet1").Range("G32:I54").Copy Sheets("Sheet2").Range("A60000").End(xlUp).Offset(2, 0) 'Select Case Sheets("Sheet1").Range("A1") = ""

Can anyone help pasting values and not code?

1
vbaexcel
possible duplicate of How to copy only values in excel vba from a range? – Jean-François Corbett
No, not really because it does not concider placing at first empty cell – user3049442
This is most definitely a duplicate. The answers to that other question are applicable to your case; just substitute your range (End(xlUp) and all that jazz) for the other question's dest. – Jean-François Corbett

1 Answers

2
votes
Sheets("Sheet1").Range("G32:I54").Copy 
Sheets("Sheet2").Range("A60000").End(xlUp).Offset(2, 0).pastespecial paste:=xlPasteFormats
Sheets("Sheet2").Range("A60000").End(xlUp).Offset(2, 0).pastespecial paste:=xlPasteValues
application.cutcopymode=false