Hi Glen,

Give the following a try, just set the sheets/ranges at the top and run![vba]Sub ports18()
Dim SheetWithPCIDs As Worksheet, SheetToPrint As Worksheet
Dim PCIDcol As Range, CellToPasteTo As Range, CLL As Range

'***** CHANGE AS NEEDED *****
Set SheetWithPCIDs = Sheets("Sheet with PCIDs")
Set SheetToPrint = Sheets("Sheet To Print")
Set PCIDcol = SheetWithPCIDs.Columns("A")
Set CellToPasteTo = SheetToPrint.Range("C4")

Set PCIDcol = Intersect(PCIDcol, SheetWithPCIDs.UsedRange) ', SheetWithPCIDs.Rows("2:65536"))
For Each CLL In PCIDcol.Cells
CellToPasteTo.Value = CLL.Value
SheetToPrint.PrintOut
Next
End Sub[/vba]If your column with PCIDs has a header row, then include the commented out portion in the Intersect statement (skips row 1 when pasting/printing). Please let us know if you have any questions!
Matt