Trying to copy paste and delete a row

[Archangel117]

What I keep getting is a compile error because of the End If statement and the End Sub statement.