Copy/Paste/Print Between Worksheets

[MSofi]

Hello,

Any help you could offer would be very appreciated! Here's my problem...

I am attempting to create a macro to copy data from cells in the A column from one workbook (Coke Creations POS Auto-Ship) to cell B6 in a second workbook (Auto-ship POS request), then print the latter using saved printer settings, and repeat down the rows of column A in the former workbook until no data is present in said cell. With the tab I am currently working with there are 87 rows of data.

I used the Record Macro function to come up with the below, but am having trouble editing it correctly to perform the above request.

Sub AutoShip()
'
' AutoShip Macro
'

'
Windows("Coke Creations POS Auto-Ship.xlsx").Activate
Range("A1").Select
Selection.Copy
Windows("Auto-ship POS request.xlsx").Activate
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1, Collate _
:=True, IgnorePrintAreas:=False
End Sub

Cheers!