How do you run a VBA macro to copy rows with a specific values in a cell and paste to another worksheet? And can you help me fix this code to do so?

Question

Sub Copy()
Dim wsCopy As Worksheet
Dim wsDest As Worksheet
Dim lCopyLastRow As Long
Dim lDestLastRow As Long
Dim rngJ As Range
Dim cell As Range
Dim col As Range
Dim cop