Macro to Copy and paste as value to cell A13 from a column in the next sheet and save each iteration as a pdf

[jhgiants95]

I have come across a system that requires a significant amount of work hours that I am trying to improve. I have automated the process to now only require the copy and paste of one cell (from an adjacent sheet titled 'Input') to autofill a form. In this case it is being copied to cell A13 of the sheet titled 'Output'.

It needs to be pasted as a value since there are many lookups that are run based off of this that don't seem to work if it is simply copied with formats.

Then this should be saved as a pdf (now that the form has populated) with the name of the file matching the value in cell A13.

This needs to be repeated for every cell in column H of the 'Input' sheet starting in row 2 due to headers. This only needs to function until it reaches a blank cell.

I have done some research and have only been able to find a way to save as a pdf with the appropriate file name but I cant figure out how to loop through the cells in the row and save each 'Output' sheet individually. Any help would be greatly appreciated. Thanks.

 

[JLGWhiz]

Dim c As Range
With Sheets("Input")
 For Each c In .Range("H2", .Cells(Rows.Count, "H").End(xlUp))
    If c <> "" Then
       c.Copy
       Sheets("Output").Range("A13").PasteSpecial xlPasteValues
    End If
    'code to save sheet here
 Next
End With