hi,
Im using this code to paste to another workbook on the next available line. All is working , i just need it to paste values and not formulas.
'1. Find last used row in the copy range based on data in column A
lCopyLastRow = wsCopy.Cells(wsCopy.Rows.Count, "M").End(xlUp).Row
'2. Find first blank row in the destination range based on data in column A
'Offset property moves down 1 row
lDestLastRow = wsDest.Cells(wsDest.Rows.Count, "B").End(xlUp).Offset(1).Row
'3. Copy & Paste Data
wsCopy.Range("M6:U" & lCopyLastRow).copy wsDest.Range("B" & lDestLastRow)
I think i know the command i need to enter .PasteSpecial Paste:=xlPasteValues just not sure where or if it is correct.
can someone help?
Im using this code to paste to another workbook on the next available line. All is working , i just need it to paste values and not formulas.
'1. Find last used row in the copy range based on data in column A
lCopyLastRow = wsCopy.Cells(wsCopy.Rows.Count, "M").End(xlUp).Row
'2. Find first blank row in the destination range based on data in column A
'Offset property moves down 1 row
lDestLastRow = wsDest.Cells(wsDest.Rows.Count, "B").End(xlUp).Offset(1).Row
'3. Copy & Paste Data
wsCopy.Range("M6:U" & lCopyLastRow).copy wsDest.Range("B" & lDestLastRow)
I think i know the command i need to enter .PasteSpecial Paste:=xlPasteValues just not sure where or if it is correct.
can someone help?