How can I fInd cells in a column that do not have the correct sequence of data in.

[Davebro]

I have a column which consits of 6 cells of data and then a two space but some rows only have 5 cells of data, how can I identify the ones with 5 and add a row to make it 6 (8 in all).

Races_2023_22_04_06_58.csv
	A
9	32
10	39
11	38
12	36
13	40
14	39
15
16
17	34
18	24
19	24
20	34
21	38
22
23
24	27
25	40
26	42
27	35
28	38
29	39
30
31
32	8
33	20
34	31
35	27
36	27
37
38
39	13
40	33
41	38
42	37
43	27
44	27
45
46
47	35
48	30
49	25
50	15
51	41
52	23
53
54
55	37
56	35
57	30
58	10
59	22
60	30
Sheet1

 

[Peter_SSs]

Does this do what you want? I have assumed that the values shown are not the result of formulas.
Test with a copy of your data.

Sub CheckRowNumbers()
  Dim rA As Range
  
  Const RowsRequired As Long = 6
  
  Application.ScreenUpdating = False
  For Each rA In Range("A9", Range("A" & Rows.Count).End(xlUp)).SpecialCells(xlConstants).Areas
    If rA.Count < RowsRequired Then rA.Offset(rA.Count).Resize(RowsRequired - rA.Count).EntireRow.Insert
  Next rA
  Application.ScreenUpdating = True
End Sub

 

[Davebro]

Hi, many thanks for this, yes it works fine, still getting to grips with VBA but this explains a bit more to me.

 

[Peter_SSs]

You're welcome. Thanks for the follow-up.