Workbooks("Test.xls").Sheets("Sheet1").Range("C6,C10,C14,C18,C22,C26,C30,C34,C38,C42,C46,C50").Copy Destination:=Workbooks("Template.xlsm").Sheets("Sheet1").Range("B6")