با سلام 
rownum = 1

   pagenum = 1

   sumflag = 0

   FormatCell 3, 1

   Worksheets("Template").Select

  ActiveSheet.Range(ActiveSheet.Cells(1, 1), ActiveSheet.Cells(1, Worksheets("Data").Cells(1, 6))).Merge

   ActiveSheet.Range(ActiveSheet.Cells(2, 1), ActiveSheet.Cells(2, Worksheets("Data").Cells(1, 6))).Merge

   ActiveSheet.Cells(1, 1) = Worksheets("Data").Cells(1, 3) + " " + Worksheets("Data").Cells(1, 1)

فايل اكسل داراي دو sheet به نام Data و Template است ماكرو زير در خط 6 خطا ميده چرا؟