pls don't send PM's...
post your questions to the original thread...
marking thread as solved, obviously, makes members think problems are solved, questions are answered.

that said, i would start with importing the day's data first, then do the rest.

so your step2 is my step1... your step1 is my step2... and i dont have step3

[VBA]
Public Sub Stock_OOP_1()

Dim rng As Range
Dim lastrow As Long, i As Long, ii As Long

With Worksheets("Sheet1") 'created after running Prv_day_file_Copy_as_Sheet1
Set rng = .Range("A2:K" & .Cells(.Rows.Count, "A").End(xlUp).Row)
End With

With Worksheets("Original")
.Columns("A").Insert
.Columns("J:K").Insert
lastrow = .Cells(.Rows.Count, "B").End(xlUp).Row
For i = 1 To lastrow
If .Cells(i, "B").Value <> "" Then
ii = i + 1
Do
ii = ii + 1
.Cells(ii, "A").Value = .Cells(i, "B").Value
If .Cells(ii, "B").Value <> "Product Code" Then
.Cells(ii, "A").Value = .Cells(ii, "A").Value & .Cells(ii, "B").Value
.Cells(ii, "J").Value = Application.VLookup(.Cells(ii, "A").Value, rng, 10, 0)
.Cells(ii, "K").Value = Application.VLookup(.Cells(ii, "A").Value, rng, 11, 0)
End If
Loop Until .Cells(ii + 1, "B").Value = ""
i = ii
End If
Next i
.Columns("A").AutoFit
End With
End Sub[/VBA]