Problem mit Makro

Sub Kopier()
Range("E4:E5").Select
Selection.Cut
Range("V4").Select
ActiveSheet.Paste
Dim wks As Worksheet
Dim wkbZiel As Workbook
Dim lngLZeil As Long
Dim rngSearch As Range
Dim rngCell As Range
Set wks = ActiveSheet
Set wkbZiel = Workbooks.Open("G:\doble.xls")
intQuellSpalt = 5 'Spalte E
intZielSpalt = 2 'Spalte B
Set rngSearch = wks.Columns(intQuellSpalt).SpecialCells(xlCellTypeConstants, 23)
With wkbZiel.Worksheets(1)
lngLZeil = .Cells(.Rows.Count, intZielSpalt).End(xlUp).Row + 1
For Each rngCell In rngSearch
rngCell.Copy .Cells(lngLZeil, intZielSpalt)
lngLZeil = lngLZeil + 1
Next
End With
wkbZiel.Close True
Range("V4:V5").Select
Selection.Cut
Range("E4").Select
ActiveSheet.Paste
Range("A2").Select
End Sub