Reply to thread

Message: [QUOTE="Claus Busch, post: 7419756"] Hi, Am Mon, 1 Jul 2013 07:16:03 +0100 schrieb arceaf: try: Private Sub CommandButton2_Click() Dim LRow As Long Application.ScreenUpdating = False With Sheets("Recommendations") LRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 Range("C2").Copy .Range("A" & LRow).PasteSpecial Paste:=xlPasteValues Sheets("Decision Matrix").Range("G55:H55").Copy .Range("B" & LRow).PasteSpecial Paste:=xlPasteValues End With Application.CutCopyMode = False Application.ScreenUpdating = True End Sub Regards Claus B. [/QUOTE]