VBA Code not working

Hi,

I have a simple bit of VBA code that does not seem to give me an output. I am trying to copy the first two columns on sheet2 to first two columns in sheet1. I think that I am storing the values in a variable, but then I'm not actually pasting the values from the variable to sheet1. Do not quite remember how to do this.

Sub CopynPaste()

Dim CopyColumn(1 To 1000, 1 To 1000) As Variant

Worksheets("Sheet2").Activate
Cells(UBound(CopyColumn)).Copy
Sheets("sheet1").Activate
ActiveCell.PasteSpecial

Worksheets("Sheet2").Activate
ActiveCell.Offset(0, 2).Select
Worksheets("Sheet1").Activate
ActiveCell.Offset(0, 2).Select



End Sub