asked on
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
... 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 :