IF THEN Concatenate AND Cut And Paste

I have imported .csv files into a workbook and there are instances where the data did not separate properly. When this happens, part of the text (an MCI circuit ID) that should be in column A, ends up in column B. This obviously moves the data that should be in B:I to C:J. I have the code below, which, when "*MCI*" is found in a cell in column B (and as extra validation), a "0" is found in column J, the text in column B is joined with the text in column A. This works fine. What I need is to also have it delete the circuit ID that still exists in column B and then cut the data in C:J and paste it in B:I.

If it matters, there could be as many as 25,000 rows.

Sub IfMCIexists()
Dim a As Long
Dim b As Long
Dim i As Long
Dim j As Long
Dim r As Long
Dim lr As Long

'Fancy report headings in rows 1 thru 7, so start at Row 8
r = 8

'Column in which text will be combined if conditions are met A (1)
a = 1

'Search Column B for condition one (if *MCI* exists)
b = 2

'Search Column J for condition two (if "0" exists)
j = 10

'Determine last row containing data
lr = Cells(65536, b).End(xlUp).Row

'Loop and concatenate if "*MCI*" is found in column B and "0" is found in column J

For i = 8 To lr
If Cells(r, b).Text Like "*MCI*" And Cells(r, j).Value = "0" Then Cells(r, a) = Cells(r, a) & Cells(r, b)
r = r + 1
Next i
End Sub