Pulling Data from one spreadsheet to another
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
|