Move data from template to excel col.

Hi All,

I am doing one project need help in this,there is so many template in workbook,i need to move them in single sheet, yellow mark are headers and red marks is data in template.sorry bad English.

i have attached workbook with input and output.
any help much appreciate.


visha

You could use this code:

Sub Macro1()
   Dim sh As Worksheet
   Dim myArray As String
   Dim destRow As Long, lastRow As Long
   Dim destCol As Integer, myCell
   
   myArray = "c5,g5,c6,g6,c8,g8,c9,g9,c10,g10,c11,g11,g12,g13,c14"
   destRow = 1
   With ThisWorkbook
      For Each sh In .Sheets
         If LCase(sh.Name) <> "output" Then
            destRow = destRow + 1
            lastRow = sh.Cells(Rows.Count, 1).End(xlUp).Row
            
            destCol = 0
            For Each myCell In Split(myArray, ",")
               destCol = destCol + 1
               .Sheets("output").Cells(destRow, destCol) = sh.Range(myCell)
            Next
            
            destCol = destCol + 1
            .Sheets("output").Cells(destRow, destCol).Resize(lastRow - 16, 8).Value = sh.Range("a17").Resize(lastRow, 8).Value
            destRow = destRow + lastRow - 17
         End If
      Next
   End With
End Sub

Regards,
Antonio

FANTASTIC Antonio u save my daily 3 hours ,thank u very much.

I'm glad that you could fix it!
Regards,
Antonio