Run-Time error '438'

[j12358132134]

Hello..
could anyone help me with this below macro?
whats wrong with it, i receive error massage for the red line

Dim i, k As Integer
Dim N, B As String
i = 1: k = 1


line1:
If Workbooks("download.xls").Worksheets("Label List").Cells(i + 2, 5).Value = 0 Then
MsgBox "Filtering finished"
GoTo line2

Else


If "N" = Left(Workbooks("download.xls").Worksheets("Label List").Cells(i + 2, 5), 1) Or "B" = Left(Workbooks("download.xls").Worksheets("Label List").Cells(i + 2, 5), 1) Then
Workbooks("download.xls").Worksheets("Label List").Cells(i + 2, 1).Resize(1, 22).Copy
Workbooks("label system_main control.xls").Worksheets("LGEIN").Cells(k + 2, 1).Paste


k = k + 1
i = i + 1
GoTo line1

Else
i = i + 1
GoTo line1
End If

line2:
End If


End Sub

error massage:
-------------------------------------------------
Run-Time error '438'

Object doesn't support this method
-------------------------------------------------

thank you
juna-

[StephenR]

Try this instead. The paste syntax is wrong.

Workbooks("download.xls").Worksheets("Label List").Cells(i + 2, 1).Resize(1, 22).Copy _
    Destination:=Workbooks("label system_main control.xls").Worksheets("LGEIN").Cells(k + 2, 1)

[j12358132134]

ya it's work!!

thanks