I have a requirement to copy the value of certain cells from a.CSV file to my workbook. The data to be copied resides in a single column but it is separated by dates. In any case I created the macro you see below (it works) and was wondering if there was a way to simplify the macro?</SPAN>
Sub SplitSkillInterval()</SPAN>
Windows("2013 - Call Distribution.xlsm").Activate</SPAN>
'*************************1******************************</SPAN>
Windows("Split-Skill-751.csv").Activate</SPAN>
Range("F3:F50").Select</SPAN>
Selection.Copy</SPAN>
Windows("2013 - Call Distribution.xlsm").Activate</SPAN>
Range("B207").Select</SPAN>
ActiveSheet.Paste</SPAN>
'*************************2******************************</SPAN>
Windows("Split-Skill-751.csv").Activate</SPAN>
Range("F51:F98").Select</SPAN>
Selection.Copy</SPAN>
Windows("2013 - Call Distribution.xlsm").Activate</SPAN>
Range("C207").Select</SPAN>
ActiveSheet.Paste</SPAN>
'************************3*******************************</SPAN>
Windows("Split-Skill-751.csv").Activate</SPAN>
Range("F99:F146").Select</SPAN>
Selection.Copy</SPAN>
Windows("2013 - Call Distribution.xlsm").Activate</SPAN>
Range("D207").Select</SPAN>
ActiveSheet.Paste</SPAN>
'************************4*******************************</SPAN>
Windows("Split-Skill-751.csv").Activate</SPAN>
Range("F147:F194").Select</SPAN>
Selection.Copy</SPAN>
Windows("2013 - Call Distribution.xlsm").Activate</SPAN>
Range("E207").Select</SPAN>
ActiveSheet.Paste</SPAN>
'************************5*******************************</SPAN>
Windows("Split-Skill-751.csv").Activate</SPAN>
Range("F195:F242").Select</SPAN>
Selection.Copy</SPAN>
Windows("2013 - Call Distribution.xlsm").Activate</SPAN>
Range("F207").Select</SPAN>
ActiveSheet.Paste</SPAN>
'************************6*******************************</SPAN>
Windows("Split-Skill-751.csv").Activate</SPAN>
Range("F243:F290").Select</SPAN>
Selection.Copy</SPAN>
Windows("2013 - Call Distribution.xlsm").Activate</SPAN>
Range("G207").Select</SPAN>
ActiveSheet.Paste</SPAN>
'************************7*******************************</SPAN>
Windows("Split-Skill-751.csv").Activate</SPAN>
Range("F291:F338").Select</SPAN>
Selection.Copy</SPAN>
Windows("2013 - Call Distribution.xlsm").Activate</SPAN>
Range("H207").Select</SPAN>
ActiveSheet.Paste</SPAN>
'************************8*******************************</SPAN>
Windows("Split-Skill-751.csv").Activate</SPAN>
Range("F339:F386").Select</SPAN>
Selection.Copy</SPAN>
Windows("2013 - Call Distribution.xlsm").Activate</SPAN>
Range("I207").Select</SPAN>
ActiveSheet.Paste</SPAN>
'************************9*******************************</SPAN>
Windows("Split-Skill-751.csv").Activate</SPAN>
Range("F387:F434").Select</SPAN>
Selection.Copy</SPAN>
Windows("2013 - Call Distribution.xlsm").Activate</SPAN>
Range("J207").Select</SPAN>
ActiveSheet.Paste</SPAN>
'************************10*******************************</SPAN>
Windows("Split-Skill-751.csv").Activate</SPAN>
Range("F435:F482").Select</SPAN>
Selection.Copy</SPAN>
Windows("2013 - Call Distribution.xlsm").Activate</SPAN>
Range("K207").Select</SPAN>
ActiveSheet.Paste</SPAN>
'*************************11******************************</SPAN>
Windows("Split-Skill-751.csv").Activate</SPAN>
Range("F483:F530").Select</SPAN>
Selection.Copy</SPAN>
Windows("2013 - Call Distribution.xlsm").Activate</SPAN>
Range("L207").Select</SPAN>
ActiveSheet.Paste</SPAN>
'**************************12*****************************</SPAN>
Windows("Split-Skill-751.csv").Activate</SPAN>
Range("F531:F578").Select</SPAN>
Selection.Copy</SPAN>
Windows("2013 - Call Distribution.xlsm").Activate</SPAN>
Range("M207").Select</SPAN>
ActiveSheet.Paste</SPAN>
'***************************13****************************</SPAN>
Windows("Split-Skill-751.csv").Activate</SPAN>
Range("F579:F626").Select</SPAN>
Selection.Copy</SPAN>
Windows("2013 - Call Distribution.xlsm").Activate</SPAN>
Range("N207").Select</SPAN>
ActiveSheet.Paste</SPAN>
'***************************14****************************</SPAN>
Windows("Split-Skill-751.csv").Activate</SPAN>
Range("F627:F674").Select</SPAN>
Selection.Copy</SPAN>
Windows("2013 - Call Distribution.xlsm").Activate</SPAN>
Range("O207").Select</SPAN>
ActiveSheet.Paste</SPAN>
'***************************15****************************</SPAN>
Windows("Split-Skill-751.csv").Activate</SPAN>
Range("F675:F722").Select</SPAN>
Selection.Copy</SPAN>
Windows("2013 - Call Distribution.xlsm").Activate</SPAN>
Range("P207").Select</SPAN>
ActiveSheet.Paste</SPAN>
'***************************16****************************</SPAN>
Windows("Split-Skill-751.csv").Activate</SPAN>
Range("F723:F770").Select</SPAN>
Selection.Copy</SPAN>
Windows("2013 - Call Distribution.xlsm").Activate</SPAN>
Range("Q207").Select</SPAN>
ActiveSheet.Paste</SPAN>
'***************************17****************************</SPAN>
Windows("Split-Skill-751.csv").Activate</SPAN>
Range("F771:F818").Select</SPAN>
Selection.Copy</SPAN>
Windows("2013 - Call Distribution.xlsm").Activate</SPAN>
Range("R207").Select</SPAN>
ActiveSheet.Paste</SPAN>
'***************************18****************************</SPAN>
Windows("Split-Skill-751.csv").Activate</SPAN>
Range("F819:F866").Select</SPAN>
Selection.Copy</SPAN>
Windows("2013 - Call Distribution.xlsm").Activate</SPAN>
Range("S207").Select</SPAN>
ActiveSheet.Paste</SPAN>
'***************************19****************************</SPAN>
Windows("Split-Skill-751.csv").Activate</SPAN>
Range("F867:F914").Select</SPAN>
Selection.Copy</SPAN>
Windows("2013 - Call Distribution.xlsm").Activate</SPAN>
Range("T207").Select</SPAN>
ActiveSheet.Paste</SPAN>
'***************************20****************************</SPAN>
Windows("Split-Skill-751.csv").Activate</SPAN>
Range("F915:F962").Select</SPAN>
Selection.Copy</SPAN>
Windows("2013 - Call Distribution.xlsm").Activate</SPAN>
Range("U207").Select</SPAN>
ActiveSheet.Paste</SPAN>
'***************************21****************************</SPAN>
Windows("Split-Skill-751.csv").Activate</SPAN>
Range("F963:F1010").Select</SPAN>
Selection.Copy</SPAN>
Windows("2013 - Call Distribution.xlsm").Activate</SPAN>
Range("V207").Select</SPAN>
ActiveSheet.Paste</SPAN>
'****************************22***************************</SPAN>
Windows("Split-Skill-751.csv").Activate</SPAN>
Range("F1011:F1058").Select</SPAN>
Selection.Copy</SPAN>
Windows("2013 - Call Distribution.xlsm").Activate</SPAN>
Range("W207").Select</SPAN>
ActiveSheet.Paste</SPAN>
'****************************23***************************</SPAN>
Windows("Split-Skill-751.csv").Activate</SPAN>
Range("F1059:F1106").Select</SPAN>
Selection.Copy</SPAN>
Windows("2013 - Call Distribution.xlsm").Activate</SPAN>
Range("X207").Select</SPAN>
ActiveSheet.Paste</SPAN>
'****************************24***************************</SPAN>
Windows("Split-Skill-751.csv").Activate</SPAN>
Range("F1107:F1154").Select</SPAN>
Selection.Copy</SPAN>
Windows("2013 - Call Distribution.xlsm").Activate</SPAN>
Range("Y207").Select</SPAN>
ActiveSheet.Paste</SPAN>
'****************************25***************************</SPAN>
Windows("Split-Skill-751.csv").Activate</SPAN>
Range("F1155:F1202").Select</SPAN>
Selection.Copy</SPAN>
Windows("2013 - Call Distribution.xlsm").Activate</SPAN>
Range("Z207").Select</SPAN>
ActiveSheet.Paste</SPAN>
'****************************26***************************</SPAN>
Windows("Split-Skill-751.csv").Activate</SPAN>
Range("F1203:F1250").Select</SPAN>
Selection.Copy</SPAN>
Windows("2013 - Call Distribution.xlsm").Activate</SPAN>
Range("AA207").Select</SPAN>
ActiveSheet.Paste</SPAN>
'****************************27***************************</SPAN>
Windows("Split-Skill-751.csv").Activate</SPAN>
Range("F1251:F1298").Select</SPAN>
Selection.Copy</SPAN>
Windows("2013 - Call Distribution.xlsm").Activate</SPAN>
Range("AB207").Select</SPAN>
ActiveSheet.Paste</SPAN>
'****************************28***************************</SPAN>
Windows("Split-Skill-751.csv").Activate</SPAN>
Range("F1299:F1346").Select</SPAN>
Selection.Copy</SPAN>
Windows("2013 - Call Distribution.xlsm").Activate</SPAN>
Range("AC207").Select</SPAN>
ActiveSheet.Paste</SPAN>
'****************************29***************************</SPAN>
Windows("Split-Skill-751.csv").Activate</SPAN>
Range("F1347:F1394").Select</SPAN>
Selection.Copy</SPAN>
Windows("2013 - Call Distribution.xlsm").Activate</SPAN>
Range("AD207").Select</SPAN>
ActiveSheet.Paste</SPAN>
'****************************30***************************</SPAN>
Windows("Split-Skill-751.csv").Activate</SPAN>
Range("F1395:F1442").Select</SPAN>
Selection.Copy</SPAN>
Windows("2013 - Call Distribution.xlsm").Activate</SPAN>
Range("AE207").Select</SPAN>
ActiveSheet.Paste</SPAN>
'****************************31***************************</SPAN>
Windows("Split-Skill-751.csv").Activate</SPAN>
Range("F1443:F1490").Select</SPAN>
Selection.Copy</SPAN>
Windows("2013 - Call Distribution.xlsm").Activate</SPAN>
Range("AF207").Select</SPAN>
ActiveSheet.Paste</SPAN>
'*******************************************************</SPAN>
End Sub</SPAN>
Sub SplitSkillInterval()</SPAN>
Windows("2013 - Call Distribution.xlsm").Activate</SPAN>
'*************************1******************************</SPAN>
Windows("Split-Skill-751.csv").Activate</SPAN>
Range("F3:F50").Select</SPAN>
Selection.Copy</SPAN>
Windows("2013 - Call Distribution.xlsm").Activate</SPAN>
Range("B207").Select</SPAN>
ActiveSheet.Paste</SPAN>
'*************************2******************************</SPAN>
Windows("Split-Skill-751.csv").Activate</SPAN>
Range("F51:F98").Select</SPAN>
Selection.Copy</SPAN>
Windows("2013 - Call Distribution.xlsm").Activate</SPAN>
Range("C207").Select</SPAN>
ActiveSheet.Paste</SPAN>
'************************3*******************************</SPAN>
Windows("Split-Skill-751.csv").Activate</SPAN>
Range("F99:F146").Select</SPAN>
Selection.Copy</SPAN>
Windows("2013 - Call Distribution.xlsm").Activate</SPAN>
Range("D207").Select</SPAN>
ActiveSheet.Paste</SPAN>
'************************4*******************************</SPAN>
Windows("Split-Skill-751.csv").Activate</SPAN>
Range("F147:F194").Select</SPAN>
Selection.Copy</SPAN>
Windows("2013 - Call Distribution.xlsm").Activate</SPAN>
Range("E207").Select</SPAN>
ActiveSheet.Paste</SPAN>
'************************5*******************************</SPAN>
Windows("Split-Skill-751.csv").Activate</SPAN>
Range("F195:F242").Select</SPAN>
Selection.Copy</SPAN>
Windows("2013 - Call Distribution.xlsm").Activate</SPAN>
Range("F207").Select</SPAN>
ActiveSheet.Paste</SPAN>
'************************6*******************************</SPAN>
Windows("Split-Skill-751.csv").Activate</SPAN>
Range("F243:F290").Select</SPAN>
Selection.Copy</SPAN>
Windows("2013 - Call Distribution.xlsm").Activate</SPAN>
Range("G207").Select</SPAN>
ActiveSheet.Paste</SPAN>
'************************7*******************************</SPAN>
Windows("Split-Skill-751.csv").Activate</SPAN>
Range("F291:F338").Select</SPAN>
Selection.Copy</SPAN>
Windows("2013 - Call Distribution.xlsm").Activate</SPAN>
Range("H207").Select</SPAN>
ActiveSheet.Paste</SPAN>
'************************8*******************************</SPAN>
Windows("Split-Skill-751.csv").Activate</SPAN>
Range("F339:F386").Select</SPAN>
Selection.Copy</SPAN>
Windows("2013 - Call Distribution.xlsm").Activate</SPAN>
Range("I207").Select</SPAN>
ActiveSheet.Paste</SPAN>
'************************9*******************************</SPAN>
Windows("Split-Skill-751.csv").Activate</SPAN>
Range("F387:F434").Select</SPAN>
Selection.Copy</SPAN>
Windows("2013 - Call Distribution.xlsm").Activate</SPAN>
Range("J207").Select</SPAN>
ActiveSheet.Paste</SPAN>
'************************10*******************************</SPAN>
Windows("Split-Skill-751.csv").Activate</SPAN>
Range("F435:F482").Select</SPAN>
Selection.Copy</SPAN>
Windows("2013 - Call Distribution.xlsm").Activate</SPAN>
Range("K207").Select</SPAN>
ActiveSheet.Paste</SPAN>
'*************************11******************************</SPAN>
Windows("Split-Skill-751.csv").Activate</SPAN>
Range("F483:F530").Select</SPAN>
Selection.Copy</SPAN>
Windows("2013 - Call Distribution.xlsm").Activate</SPAN>
Range("L207").Select</SPAN>
ActiveSheet.Paste</SPAN>
'**************************12*****************************</SPAN>
Windows("Split-Skill-751.csv").Activate</SPAN>
Range("F531:F578").Select</SPAN>
Selection.Copy</SPAN>
Windows("2013 - Call Distribution.xlsm").Activate</SPAN>
Range("M207").Select</SPAN>
ActiveSheet.Paste</SPAN>
'***************************13****************************</SPAN>
Windows("Split-Skill-751.csv").Activate</SPAN>
Range("F579:F626").Select</SPAN>
Selection.Copy</SPAN>
Windows("2013 - Call Distribution.xlsm").Activate</SPAN>
Range("N207").Select</SPAN>
ActiveSheet.Paste</SPAN>
'***************************14****************************</SPAN>
Windows("Split-Skill-751.csv").Activate</SPAN>
Range("F627:F674").Select</SPAN>
Selection.Copy</SPAN>
Windows("2013 - Call Distribution.xlsm").Activate</SPAN>
Range("O207").Select</SPAN>
ActiveSheet.Paste</SPAN>
'***************************15****************************</SPAN>
Windows("Split-Skill-751.csv").Activate</SPAN>
Range("F675:F722").Select</SPAN>
Selection.Copy</SPAN>
Windows("2013 - Call Distribution.xlsm").Activate</SPAN>
Range("P207").Select</SPAN>
ActiveSheet.Paste</SPAN>
'***************************16****************************</SPAN>
Windows("Split-Skill-751.csv").Activate</SPAN>
Range("F723:F770").Select</SPAN>
Selection.Copy</SPAN>
Windows("2013 - Call Distribution.xlsm").Activate</SPAN>
Range("Q207").Select</SPAN>
ActiveSheet.Paste</SPAN>
'***************************17****************************</SPAN>
Windows("Split-Skill-751.csv").Activate</SPAN>
Range("F771:F818").Select</SPAN>
Selection.Copy</SPAN>
Windows("2013 - Call Distribution.xlsm").Activate</SPAN>
Range("R207").Select</SPAN>
ActiveSheet.Paste</SPAN>
'***************************18****************************</SPAN>
Windows("Split-Skill-751.csv").Activate</SPAN>
Range("F819:F866").Select</SPAN>
Selection.Copy</SPAN>
Windows("2013 - Call Distribution.xlsm").Activate</SPAN>
Range("S207").Select</SPAN>
ActiveSheet.Paste</SPAN>
'***************************19****************************</SPAN>
Windows("Split-Skill-751.csv").Activate</SPAN>
Range("F867:F914").Select</SPAN>
Selection.Copy</SPAN>
Windows("2013 - Call Distribution.xlsm").Activate</SPAN>
Range("T207").Select</SPAN>
ActiveSheet.Paste</SPAN>
'***************************20****************************</SPAN>
Windows("Split-Skill-751.csv").Activate</SPAN>
Range("F915:F962").Select</SPAN>
Selection.Copy</SPAN>
Windows("2013 - Call Distribution.xlsm").Activate</SPAN>
Range("U207").Select</SPAN>
ActiveSheet.Paste</SPAN>
'***************************21****************************</SPAN>
Windows("Split-Skill-751.csv").Activate</SPAN>
Range("F963:F1010").Select</SPAN>
Selection.Copy</SPAN>
Windows("2013 - Call Distribution.xlsm").Activate</SPAN>
Range("V207").Select</SPAN>
ActiveSheet.Paste</SPAN>
'****************************22***************************</SPAN>
Windows("Split-Skill-751.csv").Activate</SPAN>
Range("F1011:F1058").Select</SPAN>
Selection.Copy</SPAN>
Windows("2013 - Call Distribution.xlsm").Activate</SPAN>
Range("W207").Select</SPAN>
ActiveSheet.Paste</SPAN>
'****************************23***************************</SPAN>
Windows("Split-Skill-751.csv").Activate</SPAN>
Range("F1059:F1106").Select</SPAN>
Selection.Copy</SPAN>
Windows("2013 - Call Distribution.xlsm").Activate</SPAN>
Range("X207").Select</SPAN>
ActiveSheet.Paste</SPAN>
'****************************24***************************</SPAN>
Windows("Split-Skill-751.csv").Activate</SPAN>
Range("F1107:F1154").Select</SPAN>
Selection.Copy</SPAN>
Windows("2013 - Call Distribution.xlsm").Activate</SPAN>
Range("Y207").Select</SPAN>
ActiveSheet.Paste</SPAN>
'****************************25***************************</SPAN>
Windows("Split-Skill-751.csv").Activate</SPAN>
Range("F1155:F1202").Select</SPAN>
Selection.Copy</SPAN>
Windows("2013 - Call Distribution.xlsm").Activate</SPAN>
Range("Z207").Select</SPAN>
ActiveSheet.Paste</SPAN>
'****************************26***************************</SPAN>
Windows("Split-Skill-751.csv").Activate</SPAN>
Range("F1203:F1250").Select</SPAN>
Selection.Copy</SPAN>
Windows("2013 - Call Distribution.xlsm").Activate</SPAN>
Range("AA207").Select</SPAN>
ActiveSheet.Paste</SPAN>
'****************************27***************************</SPAN>
Windows("Split-Skill-751.csv").Activate</SPAN>
Range("F1251:F1298").Select</SPAN>
Selection.Copy</SPAN>
Windows("2013 - Call Distribution.xlsm").Activate</SPAN>
Range("AB207").Select</SPAN>
ActiveSheet.Paste</SPAN>
'****************************28***************************</SPAN>
Windows("Split-Skill-751.csv").Activate</SPAN>
Range("F1299:F1346").Select</SPAN>
Selection.Copy</SPAN>
Windows("2013 - Call Distribution.xlsm").Activate</SPAN>
Range("AC207").Select</SPAN>
ActiveSheet.Paste</SPAN>
'****************************29***************************</SPAN>
Windows("Split-Skill-751.csv").Activate</SPAN>
Range("F1347:F1394").Select</SPAN>
Selection.Copy</SPAN>
Windows("2013 - Call Distribution.xlsm").Activate</SPAN>
Range("AD207").Select</SPAN>
ActiveSheet.Paste</SPAN>
'****************************30***************************</SPAN>
Windows("Split-Skill-751.csv").Activate</SPAN>
Range("F1395:F1442").Select</SPAN>
Selection.Copy</SPAN>
Windows("2013 - Call Distribution.xlsm").Activate</SPAN>
Range("AE207").Select</SPAN>
ActiveSheet.Paste</SPAN>
'****************************31***************************</SPAN>
Windows("Split-Skill-751.csv").Activate</SPAN>
Range("F1443:F1490").Select</SPAN>
Selection.Copy</SPAN>
Windows("2013 - Call Distribution.xlsm").Activate</SPAN>
Range("AF207").Select</SPAN>
ActiveSheet.Paste</SPAN>
'*******************************************************</SPAN>
End Sub</SPAN>