Error trying to populate new worksheet using macro

Hey everyone,

I've been working on a macro to create a new worksheet based on the information entered into a column of a "data" worksheet which populates a template that I created. For every new column of information entered into the "data" sheet, a new worksheet is generated, formatted according to the template, and should be populated from that specific column of the "data" sheet. The information in the data sheet is not in order through the rows, and it cannot be due to how we would be filling this out. I've got the code running partially, until I hit this line:

ActiveSheet.Cells(2, 4).Value = Worksheets("Data").Cells(1, Worksheets("Data").Columns(MyCell)).Value

The error is a type mis-match, and I cannot figure out how to fix it.
I'm trying to fill the cell D2 in the new worksheet (currently blank) with the information from the "data" worksheet that is in row one of the column that the sheet was created off of. I cannot get it to loop through using my variable MyCell as a reference to the column that I want the cell to be picked from.

I'm new to VBA and using macros so this is starting to get frustrating. Please let me know what you think I could do to solve this.

Thanks.