Option Explicit Sub Prosess2() Dim wb As Workbook Dim tempPath As String Dim newPath As String Dim newWb As Workbook Dim lastRow As Long Dim strMonth As String Dim storagePath Dim val1 As String Dim val2 As String Dim TargetNum As Long Dim inputRow As Long Dim i As Long '---------------------------…