I have the following code that works just fine, but I need it to paste the values as I'm referencing a table on the active sheet. I get an error in a calculated field of my destination sheet ("Master") since the row has been deleted via the macro.
Can someone either modify the existing code, or provide a new one that'll paste values instead? Code basically takes a row that has "Complete" in column A and cuts/pastes into another sheet.
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 1 Then
If Target = "Complete" Then
nxtRw = Sheets("Master").Range("B" & Rows.Count).End(xlUp).Row + 1
Target.EntireRow.Copy Destination:=Sheets("Master").Range("A" & nxtRw)
Target.EntireRow.Delete shift:=xlUp
End If
End If
Application.EnableEvents = True
End Sub
Bookmarks