Makro - copy paste, hvis

Sub kopier()
Dim r
r = Cells(65500, 1).End(xlUp).Row + 2
If Range("A5") <> "" Then
Range("A5:K13").Copy Destination:=Cells(r, 1)
End If
End Sub

tak for svar, men jeg får en debug "cant change part of an array", kan du hjælpe her?....ja jeg er lidt grøn ;)

ok har den nu. Den skulle hedde + 11:

Private Sub CommandButton1_Click()
Dim r
r = Cells(65500, 1).End(xlUp).Row + 11
If Range("A5") <> "" Then
Range("A5:K13").Copy Destination:=Cells(r, 1)
End If
End Sub

Sender du et svar? Mange tak for hjælpen.
p.s hvad står .end(xlUp). for?

velbekom

End(xlUp)søger efter den første ikke tomme selle
nede fra og op, fra og med række 65500

ok. Det er ctrl+alt og pilop går jeg ud fra

tæt på,- CLRL+Pilop