Macro to copy rows if detects a specfic key word

Im pretty new to vb also but just something I noticed, you have used rCell but not defined what it is exactly however you have Dim'd it as a Range

Not too sure if this helps.