... but it doesnt always work and I can't figure why. I wouldnt mind some help to correct the code and add the part where it copies the missing data ;) to get something like this :
Sub WIPInsertMissing() Dim lastrow As Long, i As Long, j As Long lastrow = Sheets("Full").Range("A" & Rows.Count).End(xlUp).row j = 1 For i = 1 To lastrow If Sheets("Miss").Cells(j, 1).Value <> Sheets("Full").Cells(i, 1).Value Then Sheets("Miss").Rows(j).Insert Shift:=xlDown End If j = j + 1 Next i End Sub
Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.
”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.