Copy/Paste New Records to New Row on Seperate Sheet

This is probably super easy. But .. I recorded a macro to take information from a "Form" and insert it into another excel tab that will serve as a database for completed jobs. I realize that I should probably use access for this, but I have not even the slightest clue how to get started with that application.

The Recorded Macro is below. It works fine. I just need it to paste the information to a new row each time the "Button" is pressed to add records on a new row instead of copying over the B row with data already inserted.


Sub AddRecord()
'
' AddRecord Macro
'

'
Range("B6:D6").Select
Selection.Copy
Sheets("Record").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Form").Select
Range("B8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Record").Select
Range("D2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Form").Select
Range("D8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Record").Select
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Form").Select
Range("B3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Record").Select
Range("F2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Form").Select
Range("D3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Record").Select
Range("G2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Form").Select
Range("B1").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Record").Select
Range("H2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Form").Select
Range("A12").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Record").Select
Range("I2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("J2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Form").Select
Range("B10").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Record").Select
Range("L2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
Range("L3").Select
Sheets("Form").Select
End Sub

Any help will be greatly appreciated!

Thank you