I want to nest a for loop to cycle through the Range.Value but ("B4") throws me off and this can't be avoided. I was considering using an array to do this but can't seem to get the format correct. "Q3" is a spreadsheet and "Bac Form" is the attached table imported from a PDF that must be kept. This code works wonderfully - but it is clunky! I have 3 other unique PDFs with which to complete a similar task and rather than just forcing this thing to work would like to use this opportunity to improve my VBA for-looping skills. Thanks in advance!
 

 Private Sub CommandButton1_Click()
 
 Dim lr As Long
 Dim FolderPath As String
 
 FolderPath = "C:\Users\Joe.Dimaggio\Desktop\PDFs"
 
 lr = Cells(Rows.Count, 1).End(xlUp).Row
 lc = Cells(1, Columns.Count).End(xlToLeft).Column
 
 For x = 2 To lr
 Sheets("Bac Form").Range("A2").Value = _
 Sheets("Q3").Cells(1, 1).Value & Sheets("Q3").Cells(x, 1).Value
 Sheets("Bac Form").Range("A3").Value = _
 Sheets("Q3").Cells(1, 2).Value & Sheets("Q3").Cells(x, 2).Value & _
 " (Third Bacterial Quarter)"
 Sheets("Bac Form").Range("A4").Value = _
 Sheets("Q3").Cells(1, 3).Value & Sheets("Q3").Cells(x, 3).Value
 Sheets("Bac Form").Range("B4").Value = _
 Sheets("Q3").Cells(1, 4).Value & Sheets("Q3").Cells(x, 4).Value
 Sheets("Bac Form").Range("A5").Value = _
 Sheets("Q3").Cells(1, 5).Value & Sheets("Q3").Cells(x, 5).Value
 Sheets("Bac Form").Range("A6").Value = _
 Sheets("Q3").Cells(1, 6).Value & Sheets("Q3").Cells(x, 6).Value
 Sheets("Bac Form").Range("A7").Value = _
 Sheets("Q3").Cells(1, 7).Value & Sheets("Q3").Cells(x, 7).Value
 Sheets("Bac Form").Range("A8").Value = _
 Sheets("Q3").Cells(1, 8).Value & Sheets("Q3").Cells(x, 8).Value
 Sheets("Bac Form").Range("A9").Value = _
 Sheets("Q3").Cells(1, 9).Value & Sheets("Q3").Cells(x, 9).Value
 Sheets("Bac Form").Range("A10").Value = _
 Sheets("Q3").Cells(1, 10).Value & Sheets("Q3").Cells(x, 10).Value
 Sheets("Bac Form").Range("A11").Value = _
 Sheets("Q3").Cells(1, 11).Value & Sheets("Q3").Cells(x, 11).Value
 Sheets("Bac Form").Range("A13").Value = _
 Sheets("Q3").Cells(1, 12).Value & Sheets("Q3").Cells(x, 12).Value
 Sheets("Bac Form").Range("A14").Value = _
 Sheets("Q3").Cells(1, 13).Value & Sheets("Q3").Cells(x, 13).Value
 Sheets("Bac Form").Range("A15").Value = _
 Sheets("Q3").Cells(1, 14).Value & Sheets("Q3").Cells(x, 14).Value & _
 " colony/100 ml"
 Sheets("Bac Form").Range("A16").Value = _
 Sheets("Q3").Cells(1, 15).Value & Sheets("Q3").Cells(x, 15).Value
 Sheets("Bac Form").Range("A17").Value = _
 Sheets("Q3").Cells(1, 16).Value & Sheets("Q3").Cells(x, 16).Value & _
 " MPN/100 ml"
 Sheets("Bac Form").Range("A18").Value = _
 Sheets("Q3").Cells(1, 17).Value & Sheets("Q3").Cells(x, 17).Value
 
 
 
 Worksheets("Bac Form").ExportAsFixedFormat Type:=xlTypePDF, Filename:=FolderPath & "\" & _
 Worksheets("Bac Form").Name & "(Q3)" & (x - 1), openafterpublish:=False
 
 Next x
 
 
 
 End Sub