Kopiering af en enkelt kolonne

Hej,

Jeg ved ikke hvorfor det ikke virker, men jeg prøver at kopiere en kolonne fra fil X, sheet 2, celle B6 og ned (Jeg ved ikke hvor lang kolonnen er) over til fil Y på sheet 1, celle A5.


Indtil videre har jeg dette:

Option Explicit
Sub CopySheet()

Dim Wkb1 As Workbook
Dim Wkb2 As Workbook

'set the workbook you are copying to as active and give it a name for reference
Set Wkb1 = ActiveWorkbook

' open the workbook you are copying from and activate it
Set Wkb2 = Workbooks.Open(Filename:="C:\Users\zaj\Desktop\KEFREN")
Wkb2.Activate

' copy sheet across sheet number 1, 2 and so on!! *
Worksheets(2).Range("B5").End(xlDown).Copy

'Copying to destination
Destination:=Wkb1.Worksheets(1).Range("A5")

End Sub

Det virker bare ikke. Den kopierer fra sheet 1 (hvor det bør være suide 2) og kun en enkelt celle?