Error in VBA

[akhileshgs]

Hi,
Can you please help me with the below code?

Sub Collate_Sheets()


    Sheets("Plan&Status").Select
    Range("A1").Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Selection.Copy
    Sheets("Consolidated").Select
    ActiveSheet.Paste
    ActiveCell.SpecialCells(xlLastCell).Select
    ' I need to select one cell below, and the cell in column A at this point
    Sheets("Delivered_Projects").Select
    Range("A2").Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Consolidated").Select
    ActiveSheet.Paste
End Sub 

I am getting the following error while executing this macro
Snap21.jpg

Please help me