Error when trying to copy from row 5 to the end of the row if titles in row 2 are met Excel VBA

Question

Context

So I am trying to copy data from one sheet to another based on the criteria from row 2. This is where the titles are. It kind of works in tha