Macro to copy column from one sheet to another based on value in cell

[afarlow]

Good morning.

I have some basic VBA knowledge but am stumped with this one - have searched various forums but can't find the answer I need so am hoping one of you experts can point me in the right direction.

I have a spreadsheet with 3 sheets - Instructions, Variance and Data.

The Data sheet has a breakdown of information per week in each column.

I am trying to write a macro that will copy a column from the Data sheet and paste special it in column B on the Variance sheet if the value in Row 4 of the Data sheet is equal to the value in cell B4 of the Instruction Sheet.

The value in cell B4 of the Instruction sheet will change every week and I want the information from the data sheet to overwrite column B on the Variance sheet every week.

I have tried using an If Then statement

If Sheets("Data").Range("B4:ZZ4").Value = Sheets("Instructions").Range("C4") Then EntireColumn.Copy Sheets("Variance").Range("B1")

However, I get the RunTime error Type mismatch.

The data in the cells is a date and I have used the same format on both the Instructions and the Data sheet and can't work out why they don't match - have even copies the cell from the Data sheet to the Instructions sheet so I know they are identical.

Could someone please put me out of my misery!

Thank you