This is my code
Sub collectdata()
Sheets("Results").Select
Range("a3:m" & Range("m1048576").End(xlUp).Row).ClearContents
ChDir _
"C:\Documents and Settings\robert\My Documents\Football
2009\csv downloads"
Workbooks.Open Filename:= _
"C:\Documents and Settings\robert\My Documents\Football
2009\csv downloads\importResults 2009.xlsm"

Sheets("UK").Select
Cells(Rows.Count, 1).End(xlUp).Select
Range("a3:m" & Range("m1048576").End(xlUp).Row).Select

Selection.Copy
Windows("Home Results 2008.xlsm").Activate
Range("A3").Select
ActiveSheet.Paste xxxxxx this is were it hangs xxxxxxx

Windows("importResults.xls").Activate
ActiveWorkbook.Close True



End Sub