VBA, Overflow error trying to copy previous column

Question

I have this piece of code where I am trying to copy the previous column based on a string in my Sheets("Input").Range("A2") , Then input in