Excel kopiranje iz enega Sheeta v drugega

Pozdravljeni,
zanima me glede kopiranja vsebine v celici v enem Sheet-u in nato kopiranje v drugega.
Sedaj imam napisano ko kliknem na Button tole:

Private Sub CommandButton21_Click()
Call CopyPaste
End Sub
Sub CopyPaste()
Sheets("Narocila").Range("B4:H4").Copy Destination:=Sheets("Seznam narocil").Cell("A1")
End Sub

Problem je da mi vedno vpiše na začetek A1. Potreben je pregled katera je zadnja prazna celica in nato vpisat na začetek tega.
Kako bi to izvedel?

In pa ali je možno prekopirati samo vsebino celice ne pa vrednost.

Npr. v razponu celic ki jih kopiram od B4:H4 je vnešena funkcija:

=VLOOKUP(B4;(Izdelki!A2):(Izdelki!C143585);2;FALSE)

Ko skopira se prense poleg tudi koda, jaz bi rad prensel samo vxebino, ki jo vrže ven ta koda.