how to copy and paste values in a loop with a dynamic column range

Question

I am trying to copy and paste the values from Range A1 to P1. But, I need to use a loop to copy and paste the values This is my code: Type Mismatch error

Sub Copy