Excel - Combine Line One with Line Two

[RudeBoy]

When I run the Macro it deletes all the data here is my data
It was working last week but this time it is deleting everything but the first two lines?
Am using this code:
Sub combineRows()
Dim ws As Worksheet, r As Long, lr As Long, cell As Range
Set ws = ActiveSheet
lr = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
Application.ScreenUpdating = False
For r = lr To 3 Step -1
Set cell = ws.Cells(r, "A")
If cell = "" Then
cell.Offset(-1, 2) = cell.Offset(, 1)
cell.EntireRow.Delete
End If
Next r
End Sub

Sheet1
	A	B
Incidents Project - Jobs Converted-k.xlsm
1		EDIBCBD9
2		228 //BADRC EXEC EDIP0022,JOBNAME=EDIBCBD9,
3		EDIBCBM9
4		316 //BADRC EXEC EDIP0022,JOBNAME=EDIBCBM9,
5		EDIBCBW9
6		316 //BADRC EXEC EDIP0022,JOBNAME=EDIBCBW9,
7		EDIBCBY9
8		315 //BADRC EXEC EDIP0022,JOBNAME=EDIBCBY9,
9		EDIBC601
10		83 //BADRC EXEC EDIP0022,JOBNAME=EDIBC601,
11		EDIBC604
12		959 //BADRC EXEC EDIP0022,JOBNAME=EDIBC604,
13		EDIBC605
14		64 //BADRC EXEC EDIP0022,JOBNAME=EDIBC605,
15		EDIBC606
16		145 //BADRC EXEC EDIP0022,JOBNAME=EDIBC606,
17		EDIBC607
18		103 //BADRC EXEC EDIP0022,JOBNAME=EDIBC607,
19		EDIBC608
20		357 //BADRC EXEC EDIP0022,JOBNAME=EDIBC608,
21		EDIBC609
22		42 //BADRC EXEC EDIP0022,JOBNAME=EDIBC609,
23		EDIBC611
24		58 //BADRC EXEC EDIP0022,JOBNAME=EDIBC611,

Cell	Condition	Cell Format	Stop If True
Cells with Conditional Formatting
A:A	Cell Value	="N"	text	NO
A:A	Cell Value	="Y"	text	NO

 

[JLGWhiz]

Change from

For i = .Cells(Rows.Count, 2).End(xlUp).Row To 7 Step -1

To

For i = .Cells(Rows.Count, 2).End(xlUp).Row To 2 Step -1

 

[RudeBoy]

Change from

For i = .Cells(Rows.Count, 2).End(xlUp).Row To 7 Step -1

To

For i = .Cells(Rows.Count, 2).End(xlUp).Row To 2 Step -1

Thanks - Stay Safe

 

[JLGWhiz]

Thanks - Stay Safe

You're welcome,
regards, JLG

 

[RudeBoy]

You're welcome,
regards, JLG

I tried to run it on a large selection and it said this subscript out of range?? What does that mean

 

[RudeBoy]

You're welcome,
regards, JLG

Maybe it is the change of data that gave me a out of range

MASTER - ACTIVE EDI & QEDI Jobs-as-of-7-31-2020-i.xlsm
	A	B
454	n	11 CRITICALITY OF JOB:_A
455	n	EDIBCHM1
456	n	28 CRITICALITY OF JOB: B
457	n	EDIBCHM2
458	n	28 CRITICALITY OF JOB: B
459	n	EDIBCHM3
460	n	28 CRITICALITY OF JOB: B
461	n	EDIBCHM4
462	n	28 CRITICALITY OF JOB: B
463	n	EDIBCHM5
464	n	28 CRITICALITY OF JOB: B
465	n	EDIBCHM6
466	n	28 CRITICALITY OF JOB: B
467	n	EDIBCHM7
468	n	9 CRITICALITY OF JOB: B
469	n	EDIBCHM8
Sheet15

The 1st Line will always Begin with EDI
The 2nd line could vary on what Data is there but All I want to do is Combine the Data Like This:

MASTER - ACTIVE EDI & QEDI Jobs-as-of-7-31-2020-i.xlsm
	A	B	C	D	E
1	n	EDI#CO01	11 CRITICALITY OF JOB: A
2	n	EDI#HI01	11 CRITICALITY OF JOB: A
3	n	EDI#MA01	11 CRITICALITY OF JOB: A
4	n	EDI#NW01	11 CRITICALITY OF JOB: A
5	n	EDI#0001	11 CRITICALITY OF JOB: A
6	n	EDI#0002	11 CRITICALITY OF JOB: A
Sheet15

 

[JLGWhiz]

The error message looks like it is from a sheet code module because there is no 'Debug' button on the message box. Unless the procedure title begins with 'Private' it should be installed in a puublic code modules. Those are the ones inserted by the user and are automaticfally numbered by Excel. The Subscript out of Range message indicates that an object that the code is telling it to use cannot be found. Could be caused by changing moving the code from one workbook to another where the variables reference the worng objects, or code is changed by the user and no longer points to an object that is valid or the object name is mispelled in the code or characters are added or deleted from and object name, Objects are workbboks, worksheets, conrols and userforms primarily. There are others like cells and ranges of cells.

If the code was in the correct code module, you could clidk the 'Debug' button when it errors and it would show you the line of code that the problem originates from.

 

[RudeBoy]

The error message looks like it is from a sheet code module because there is no 'Debug' button on the message box. Unless the procedure title begins with 'Private' it should be installed in a puublic code modules. Those are the ones inserted by the user and are automaticfally numbered by Excel. The Subscript out of Range message indicates that an object that the code is telling it to use cannot be found. Could be caused by changing moving the code from one workbook to another where the variables reference the worng objects, or code is changed by the user and no longer points to an object that is valid or the object name is mispelled in the code or characters are added or deleted from and object name, Objects are workbboks, worksheets, conrols and userforms primarily. There are others like cells and ranges of cells.

If the code was in the correct code module, you could clidk the 'Debug' button when it errors and it would show you the line of code that the problem originates from.

I cut n pasted the data from a .txt file