VBA- Copy and paste a range to another sheet

[hebbebe]

Hello!
I'm far from a expert in VBA so i need a bit of help.

Im trying to make a sheet, there i can save a list of all the projects i have completed in my work, and future projects.

I want press a button to copy row 10 in the worksheet: "Projekt", and paste it to last row in worksheet: "Biblotek". So it makes a list.
If you have any questions, i'll answer quickly as i can.

 

[Puertorekinsam]

Assuming you have at least something in the sheet Biblotek, this will work

Private Sub CommandButton1_Click()
Dim LastRow As Long
LastRow = Sheets("Biblotek").Cells.Find(What:="*", After:=Sheets("Biblotek").Range("A1"), LookAt:=xlPart, LookIn:=xlFormulas, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False).Row
Sheets("Projekt").Rows(10).Copy Sheets("Biblotek").Rows(LastRow + 1)

End Sub

This code is linked to a active X button: