Insert blank row if cell value sequence is incorrect. e.g., if A, C, then insert row between them [f

gaelen 

Sub datafields()

Dim i, j, k, m As Long
m = 2
k = Cells(2, Columns.Count).End(xlToLeft).Column
For j = 4 To k

For i = 2 To 15
If Cells(i, j).Value <> Cells(m, 1).Value Then
Cells(i, j).Insert
m = m + 1
Else
m = m + 1
End If
If m = 16 Then
m = 2
Else
End If
Next i
Next j

End Sub

Maybe with these lines of code. The full data field is in range A2:A16 in the example and 23 sample records are in columns D to Z. You can click the button in cell B2 in the attached file to run the macro which adds a blank cell for every missing data field item in every record. The macro dynamically identifies the number of records in the sheet.