Sorry Guys, thanks for cleaning it up. Ok I have the code working now and it works great, bar 1 problem. here is the code

[VBA] Sub ports18()
Dim App_List As Worksheet, Build_Sheet As Worksheet
Dim PCIDcol As Range, CellToPasteTo As Range, CLL As Range

'***** CHANGE AS NEEDED *****
Set App_List = Sheets("App_List")
Set Build_Sheet = Sheets("Build_Sheet")
Set PCIDcol = App_List.Columns("A19:A28")
Set CellToPasteTo = Build_Sheet.Range("H3")

Set PCIDcol = Intersect(PCIDcol, App_List.UsedRange) ', App_List.Rows("2:65536"))
For Each CLL In PCIDcol.Cells
CellToPasteTo.Value = CLL.Value
Build_Sheet.PrintOut
Next
End Sub [/VBA]

The problem is on the App_List sheet it lists the PCID's in Colum A, on Column D it has the applications. Because of the format of the list you can get multiple PC ID's with different Apps, ie
PC22408 Notes
PC22408 Word
PC22408 Office
So if the PC has 10 apps it will list it 10 times with the different apps. How can I make the code Pickup only 1 of the duplicates and print it and then go to the next one ? Currently it Prints all cells in Column A.

Hope this made sense.................Cheers