Copy and paste column to current week column

Hi guys,

I'm trying to create an VBA macro where i can push a button each week and it'll copy a single column and then paste the values of that column into the corresponding week, then clear all the values in the original column.

I've nearly got there with this:
Sub Copy_Paste_Wk()
Dim i As Integer
Worksheets("Sheet1").Activate
Worksheets("Sheet1").Range("A6:A200").Copy
i = Range("C4:BC4").Find("1", Range("C4"), xlValues, xlWhole, xlByColumns, xlNext).Row
ActiveSheet.Range("C4").Select
Selection.PasteSpecial Paste:=xlPasteValues
End Sub

But it's not pasting it in the correct week value. I'm using a value across the top of the dates to derive the current week as "1" which i'm then looking for in the range.

I've attached a sample of the sheet, any help greatly appreciated.
Thanks,
Rob

Attached Files

• VBA Sample.xlsx‎ (15.2 KB)