For the life of me I can not figure out why this code will work fine if more than 2 or more rows are Copied and Pasted. But if only one row is copied and pasted It will not work. Any help at all, please! Thanks in advance! The code stops at ActiveSheet.Paste
Private Sub CommandButton2_Click() 'Copy contents from Worksheet2 Columns A & B Sheets("Worksheet2").Select Range("B3").End(xlDown).Select Temp1 = ActiveCell.Address Range("A3" & ":" & Temp1).Select Selection.Copy 'Paste contents on next available blank row on Part Numbers Surface Area in Columns A & B Sheets("Part Numbers Surface Area").Select Sheets("Part Numbers Surface Area").Range("A2").End(xlDown).Offset(1).Select ActiveSheet.Paste Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False End Sub -- ---------------------------------------------------------------------------------- Some important links for excel users: 1. Follow us on TWITTER for tips tricks and links : http://twitter.com/exceldailytip 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 3. Excel tutorials at http://www.excel-macros.blogspot.com 4. Learn VBA Macros at http://www.quickvba.blogspot.com 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com <><><><><><><><><><><><><><><><><><><><><><> Like our page on facebook , Just follow below link http://www.facebook.com/discussexcel