Quote Originally Posted by DRJ
Try something like this to add the data:


Dim MyResponse As VbMsgBoxResult
Dim LastRow As Long
MyResponse = MsgBox("Do you want to insert " & ActiveCell.Text, vbYesNo + vbQuestion, "Insert Data Into Archive")
LastRow = Sheets("E-MAIL").Range("A65536").End(xlUp).Row + 1
If MyResponse = vbYes Then
    Range("A" & ActiveCell.Row & ":C" & ActiveCell.Row).Copy Destination:= _
    Sheets("E-MAIL").Range("A" & LastRow)
Else
    Exit Sub
End If
But where in my code i insert this line?