It would be better keep all the reference data in a single sheet.
Create small function to get the column headers to reach correct item list. loop it based the category to populate the result in the relevant sheet(s)
sample function
Function getCol(ColumnName As String) As Long
Dim cell
With wb.ActiveSheet
For Each cell In .Range(.cells(1, 1), .cells(1, .Columns.Count).End(xlToRight))
If cell.Value = ColumnName Then
getCol = cell.Column
Exit Function
End If
Next cell
End With
End Function
this will retrun the column number
hope it will help you in some way
Bookmarks