The 2nd part of this code within the IF statement does not loop through. It starts with Sheets(“FrontEndApp”).Select. the first set which copies row 2 to row 1 works perfectly. after the copy and paste of the row I am trying to get it to print and then loop. Right now it is printing to pdf only once and then ending. But the copy and paste loop works perfectly. For eg if there are 20 values in A:A, only the first value will print to pdf but then all the values will loop through the copy and paste. This piece will perform the code and print in PDF form and then move onto the next. Any idea where in the above code I would need to place this for it to loop and print one by one in PDF form.

1.	Sub A()
2.	
3.	Dim i As Integer
4.	i = 0
5.	
6.	Do Until i = 1000000000 'Or any other random large number that will never be met
7.	      
8.	    Range("A1").Select
9.	    If ActiveCell.Offset(1, 0) = "" Then
10.	        Exit Sub
11.	    Else
12.	        Rows("2:2").Copy
13.	        Rows("1:1").Select
14.	        ActiveSheet.Paste
15.	        Rows("2:2").Select
16.	        Application.CutCopyMode = False
17.	        Selection.Delete Shift:=xlUp
18.	
19.	
20.	   Sheets("FrontEndApp").Select
21.	         Worksheets("OC").ExportAsFixedFormat Type:=xlTypePDF, _
22.	         Filename:=Range("i23").Value, _
23.	         Quality:=xlQualityStandard, _
24.	         IncludeDocProperties:=True, _
25.	         IgnorePrintAreas:=False, _
26.	         OpenAfterPublish:=False
27.	    End If
28.	    
29.	    Loop