<div>
I started to get the base data of the work code with this function, creating a new column with the formula: 

<pre><code class="code-1 nolinks" id="code-20-42528230-1">=GetBaseData(G3)
</code></pre>
<pre><code class="code-10 nolinks" id="code-20-42528230-2">Public Function GetBaseData(ByVal parmText) As String
 Static oRE As Object
 Dim oMatches As Object
 If oRE Is Nothing Then
 Set oRE = CreateObject(&quot;vbscript.regexp&quot;)
 oRE.Global = False
 oRE.Pattern = &quot;^([^/_]+)&quot;
 End If
 Set oMatches = oRE.Execute(parmText)
 GetBaseData = oMatches(0).submatches(0)
End Function
</code></pre>
While that worked well, the mapping of the pivot table results against what you needed ran into some snags when you have multiple different values for the same base work code. 
For instance, base work code 1855 has two different values for Data Plate and Description. &nbsp;In your example, there doesn't appear to be a standard rule for what happens in such circumstances.
</div>

<div>
Data Plate is a random value that has no bearing on the output (could be ignored). &nbsp;Do I place the formula in each cell and copy down: 
=GetBaseData(G3) &nbsp; =GetBaseData(G4) = =GetBaseData(G5)
</div>

Data-Prep.xlsm

<div>
The outputfound in Sheet 1 looks great. &nbsp;I think that will work. &nbsp;How do I run the macro or start the code? &nbsp;I appreciate your help.
</div>

<div>
1. Do you need to preserve the original data? 
2. Is this a one-time process?
</div>

<div>
I would like to preserve the original data for reference and it would be a one time process for every new spreadsheet. &nbsp;Receive a new one every week.
</div>

<div>
yes. &nbsp;the =getbasedata() formula is in every row in a new column. &nbsp;The parameter should be the work code column on that row.
</div>

<div>
This comes close to automating the necessary steps. 

<pre><code class="code-10 nolinks" id="code-20-42528795-1">Public Sub Q_29093577()
'---------------------------------------------------------------------------------------
' Method : Q_29093577
' Author : Aikimark
' Date : 4/10/2018
' Purpose: Cleanse exported data and summarize and group by specific field
'---------------------------------------------------------------------------------------
 Dim wksSrc As Worksheet
 Dim wksTgt As Worksheet
 Dim rngSrc As Range
 Dim rngTgt As Range
 
 Application.ScreenUpdating = False
 
 Set wksSrc = Worksheets(&quot;DataInput&quot;)
 Set wksTgt = Sheets.Add(After:=Sheets(Sheets.Count))
 Set rngTgt = wksTgt.Range(&quot;A1&quot;)
 Set rngSrc = wksSrc.Range(&quot;A1&quot;).CurrentRegion
 rngSrc.Copy rngTgt
 
 wksTgt.Rows(1).Delete
 
 wksTgt.Columns(&quot;H:H&quot;).Insert
 'Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
 wksTgt.Range(&quot;H1&quot;).FormulaR1C1 = &quot;WkCardBase&quot;
 Set rngTgt = wksTgt.Range(&quot;H2&quot;)
 rngTgt.FormulaR1C1 = &quot;=GetBaseData(RC[-1])&quot;
 rngTgt.AutoFill Destination:=wksTgt.Range(wksTgt.Range(&quot;H2&quot;), wksTgt.Range(&quot;I2&quot;).End(xlDown).Offset(0, -1))
 
 rngTgt.Subtotal GroupBy:=9, Function:=xlSum, TotalList:=Array(4, 11), _
 Replace:=True, PageBreaks:=False, SummaryBelowData:=True
 rngTgt.ClearOutline
 wksTgt.Range(&quot;I:I&quot;).Find(What:=&quot;Grand Total&quot;).Activate
 Selection.EntireRow.Delete
 
 Set rngSrc = wksTgt.Range(&quot;A1&quot;).End(xlDown).Offset(1)
 rngSrc.FormulaR1C1 = &quot;=R[-1]C&quot;
 Set rngTgt = rngTgt.CurrentRegion
 Set rngTgt = rngTgt.SpecialCells(xlCellTypeBlanks)
 rngSrc.Copy rngTgt

 Set rngTgt = rngTgt.CurrentRegion
 rngTgt.Value = rngTgt.Value
 
 wksTgt.Range(&quot;$A$1&quot;).CurrentRegion.AutoFilter Field:=9, Criteria1:=&quot;&lt;&gt;*Total*&quot; _
 , Operator:=xlAnd
 
 wksTgt.Range(rngTgt.Rows(2), rngTgt.SpecialCells(xlCellTypeLastCell)).SpecialCells(xlCellTypeVisible).EntireRow.Delete
 
 wksTgt.Range(&quot;$A$1&quot;).CurrentRegion.AutoFilter
 
 Set rngTgt = wksTgt.Range(wksTgt.Range(&quot;I1&quot;), wksTgt.Range(&quot;I1&quot;).End(xlDown))
 rngTgt.Replace What:=&quot; Total&quot;, Replacement:=&quot;&quot;, LookAt:=xlPart, _
 SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
 ReplaceFormat:=False
 
 Set rngTgt = rngTgt.CurrentRegion
 rngTgt.ClearFormats
 
 Application.ScreenUpdating = True

End Sub
</code></pre>
</div>

<div>
I ran it on the sample data input and it all worked except I noted the following: 
 
25-93-05 
25-93-05 
 
showed up twice in the output
</div>

<div>
That's what I mentioned in the earlier comment about multiple values for a given WorkCodeBase.
</div>

Principal

R Davignon

<div>
Thank you for all your help on this.
</div>

<div>
Ability to provide the error cleansing and extract with such a limited set of lines of code.
</div>

<div>
<div class="content wysiwyg-content">
I have taskcard program that outputs work accomplished at an auto repair facility and tracks by a specific workcard. &nbsp;Unfortunately, I need data rolled up to a higher level. &nbsp;Output is sorted by column B - Car Nbr and then by Column G - Workcard. &nbsp;I would like to generate a new tab in each spreadsheet that rolls up similar workcards into 1 unique number for each car and then repeated for the next car and any labor hours in columns D and J would be summed together 
 
Pattern Examples: 

<ul>
<li>2308</li>
</ul>
<ul>
<li>2308</li>
</ul>
- These two unique lines would only show up as 1 entry in the output tab with any labor hours for both lines summed together 
 

<ul>
<li>0018_ZIP01</li>
</ul>
<ul>
<li>0018_ZIP01</li>
</ul>
-These items would show up as one entry &quot;0018&quot; with the the &quot;_xxx&quot; removed and the hours summed together 
 

<ul>
<li>1855/001</li>
</ul>
<ul>
<li>1855/001</li>
</ul>
-These items would show up as one entry &quot;1855&quot; with the the &quot;/001&quot; removed and the hours summed together 
 

<ul>
<li>21-97-01</li>
</ul>
<ul>
<li>21-97-01</li>
</ul>
<ul>
<li>21-97-01/001</li>
</ul>
-These would show up as one entry &quot;21-97-01&quot; with the &quot;/001&quot; removed and hours summed together 
 

<ul>
<li>C1234AB_0001</li>
</ul>
<ul>
<li>C1234AB_0002</li>
</ul>
<ul>
<li>C1234AB_0003</li>
</ul>
<ul>
<li>C1234AB_0004</li>
</ul>
-These would show up as one entry &quot;C1234AB&quot; with the &quot;_XXXX&quot; removed and hours summed together 
 
See attached sheet where I show the input and the desired output. 
 
Thank you<a href="https://filedb.experts-exchange.com/incoming/2018/04_w15/1296532/Data-Prep.xlsx" target="_blank" class="file-inline" title="Sample Input & Desired Output (18 KB)"><svg xmlns="http://www.w3.org/2000/svg" viewBox="0 0 512 512"><path d="M67.508 468.467c-58.005-58.013-58.016-151.92 0-209.943l225.011-225.04c44.643-44.645 117.279-44.645 161.92 0 44.743 44.749 44.753 117.186 0 161.944l-189.465 189.49c-31.41 31.413-82.518 31.412-113.926.001-31.479-31.482-31.49-82.453 0-113.944L311.51 110.491c4.687-4.687 12.286-4.687 16.972 0l16.967 16.971c4.685 4.686 4.685 12.283 0 16.969L184.983 304.917c-12.724 12.724-12.73 33.328 0 46.058 12.696 12.697 33.356 12.699 46.054-.001l189.465-189.489c25.987-25.989 25.994-68.06.001-94.056-25.931-25.934-68.119-25.932-94.049 0l-225.01 225.039c-39.249 39.252-39.258 102.795-.001 142.057 39.285 39.29 102.885 39.287 142.162-.028A739446.174 739446.174 0 0 1 439.497 238.49c4.686-4.687 12.282-4.684 16.969.004l16.967 16.971c4.685 4.686 4.689 12.279.004 16.965a755654.128 755654.128 0 0 0-195.881 195.996c-58.034 58.092-152.004 58.093-210.048.041z"/></svg>Data-Prep.xlsx</a>
</div>
</div>

Data-Prep.xlsx

I have taskcard program that outputs work accomplished at an auto repair facility and tracks by a specific workcard.  Unfortunately, I need data rolled up to a higher level.  Output is sorted by column B - Car Nbr and then by Column G - Workcard.  I would like to generate a new tab in each spreadsheet that rolls up similar workcards into 1 unique number for each car and then repeated for the next car and any labor hours in columns D and J would be summed together 

Pattern Examples:
2308

2308

- These two unique lines would only show up as 1 entry in the output tab with any labor hours for both lines summed together

0018_ZIP01

0018_ZIP01

-These items would show up as one entry "0018" with the the "_xxx" removed and the hours summed together

1855/001

1855/001

-These items would show up as one entry "1855" with the the "/001" removed and the hours summed together

21-97-01

21-97-01

21-97-01/001

-These would show up as one entry "21-97-01" with the "/001" removed and hours summed together

C1234AB_0001

C1234AB_0002

C1234AB_0003

C1234AB_0004

-These would show up as one entry "C1234AB" with the "_XXXX" removed and hours summed together

See attached sheet where I show the input and the desired output.

Thank you

Cleanse exported data and summarize and group by specific field

Microsoft Office is an integrated suite of applications that includes Outlook, Word, Excel, Access, PowerPoint, Visio and InfoPath, along with a number of tools to assist in making the individual components work together. Coding within and between the projects is done in Visual Basic for Applications, known as VBA.

Microsoft Office

Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.

Microsoft Excel

Visual Basic for Applications (VBA) enables building user-defined functions (UDFs), automating processes and accessing Windows API and other low-level functionality through dynamic-link libraries (DLLs). VBA is closely related to Visual Basic and uses the Visual Basic Runtime Library, but it can normally only run code within a host application rather than as a standalone program. It can, however, be used to control one application from another via OLE Automation. VBA is built into most Microsoft Office applications.