I'm using the following code.
I can't figure out what the problem is. The type mismatch is highlighting the second row, but I'm pretty sure the problem is in the third row. Any help would be greatly appreciated. Thank you in advance!
Private Sub Worksheet_Change(ByVal target As Range) If target.Value = "CURED" Then target.EntireRow.Cut Destination:=Sheets("CURED").Range("A" & Rows.Count).End(xlUp).Offset(1) End If End Sub