I did some searching on the code I need and this one is close! Can anyone
help me modify it. All I need for it to do is copy sheet2 entire row and send
it to sheet1. Then when I delete the contents in sheet 2 it will remain in
sheet1. Each time something is added to sheet2 copy that entire row to
sheet1. Then move down to next row and so on. Thanks in advance!
Dim MyRange, MyRange1 As Range
Sheets("Sent to Assembly").Select
LastRow = Sheets("Sent to Assembly").Range("C65536").End(xlUp).Row
Set MyRange = Sheets("Sent to Assembly").Range("C1:C" & LastRow)
For Each C In MyRange
If C.Value < 0 Then
If MyRange1 Is Nothing Then
Set MyRange1 = C.EntireRow
Else
Set MyRange1 = Union(MyRange1, C.EntireRow)
End If
End If
Next
MyRange1.Select
Selection.Copy
Sheets("Sheet1").Select
Range("A3").Select
ActiveSheet.Paste