Copy and Paste

[TeddyG]

Hi there,

First post on the board and all that jazz so if I don't do it correctly please let me know.

I need a macro that opens two workbooks (APC1) and (APC2), selects all the information from (APC2) and pastes it after where the data ends in (APC1). This should be fairly simple but I keep getting stuck when it comes to pasting the data in at the bottom on (APC1).

Any help would be greatly appreciated.
Cheers

 

[GTO]

Why not post the code you have attempted thus far? Use the [code]your code here[/code] tags. Also - what are the names of the source and destination sheets, how many columns, etc...

 

[TeddyG]

Looks something like this at the moment.

Sub Append_worksheet()
 
 
Workbooks.Open ("\\Sjhfs01\Information\Personal\T Mollart\APC1.csv")
Workbooks("APC1.csv").Worksheets("APC1"). _
Columns("A").NumberFormat = "#"
Workbooks.Open ("\\Sjhfs01\Information\Personal\T Mollart\APC2.csv")
Workbooks("APC2.csv").Worksheets("APC2"). _
Columns("A").NumberFormat = "#"
 
Workbooks("APC1.csv").Sheets("APC1").Activate
ActiveSheets.Cells.Select.Copy _
 
Windows("APC1.csv").Activate
Sheets.Select ("APC2")
ActiveSheet.Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
 
 
End Sub

 

[TeddyG]

Scratch that, I've got a bit further...

Sub Append_worksheet()
     
        
        Workbooks.Open ("\\Sjhfs01\Information\Personal\T Mollart\APC1.csv")
            Workbooks("APC1.csv").Worksheets("APC1"). _
            Columns("A").NumberFormat = "#"
        Workbooks.Open ("\\Sjhfs01\Information\Personal\T Mollart\APC2.csv")
            Workbooks("APC2.csv").Worksheets("APC2"). _
            Columns("A").NumberFormat = "#"
            
        Workbooks("APC1.csv").Sheets("APC1").Activate
        Sheets(1).Cells.Select
        Selection.Copy
        
        Workbooks("APC2.csv").Sheets(1).Activate
                Sheets(1).Select
                    ActiveSheet.Range("A1").Select
                        Selection.End(xlDown).Select
                            ActiveCell.Offset(1, 0).Select
                                Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                                    :=False, Transpose:=False
          
        
End Sub

Now I get this error telling me that in order to paste the whole sheet I must first select cell "A1" or something similar.