Dave,

Thank you, I'm only 1 weeks into VBA I really appreciate your help with this.
it worked fine.

"Dave Miller" wrote:

Here is an example of a loop until the activecell is emty:


Do Until IsEmpty(ActiveCell)
'Do whatever
ActiveCell.Offset(1, 0).Activate
Loop


Here is how I would do what you are trying to do though:

Sub CopyFromSourceSheet()
Dim OpenSht, SrcSht As Worksheet, _
SrcBk As Workbook, _
SrcRange As Range

Set OpenSht = ActiveSheet
Set SrcBk = Workbooks.Open("D:\documents and settings\ppor2\Desktop
\" & _
"WorkProjects\Pitney
\Pitney_Spreadsheet\" & _
"Original\Proddata_APS1.xls")
Set SrcSht = SrcBk.Sheets(1)
Set SrcRange = SrcSht.Range("A2:CF" & _
SrcSht.Range("A2").End(xlDown).Row)
SrcRange.Copy
OpenSht.Range("A2").PasteSpecial

Set OpenSht = Nothing
Set SrcSht = Nothing
Set SrcBk = Nothing
End Sub


Regards,

David Miller