Paste data on next available row

Hi all,

I'm running a macro to copy data from a form I've created to the master worksheet that is located within the workbook. I've tried for hours to make this macro run how I'd like and am on the verge of giving up, but thought I'd ask(Beg) for help first.

I've had so many unsuccessful revisions that I went back to the drawing board and recorded the macro fresh as listed below. The ultimate goal is to be able to have the locations that are being pasted (Row 8) be incremented to the next row each time the macro runs. Any help is greatly appreciated. The code I'm using is below.

Turk

Sub Macro1()
'
' Macro1 Macro
'

'
    Range("B2").Select
    Selection.Copy
    Sheets("Concessions").Select
    Range("C8").Select
    ActiveSheet.Paste
    Sheets("Enter New Data").Select
    Range("B4").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Concessions").Select
    Range("G8").Select
    ActiveSheet.Paste
    Sheets("Enter New Data").Select
    Range("B6").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Concessions").Select
    ActiveWindow.SmallScroll Down:=-3
    Range("B8").Select
    ActiveSheet.Paste
    Sheets("Enter New Data").Select
    Range("B8").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Concessions").Select
    Range("D8").Select
    ActiveSheet.Paste
    Sheets("Enter New Data").Select
    Range("B12").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Concessions").Select
    Range("F8").Select
    ActiveSheet.Paste
    Sheets("Enter New Data").Select
    Range("B12,B8,B6,B4,B2").Select
    Range("B2").Activate
    Application.CutCopyMode = False
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-6
End Sub

OOPs... Forgot to say. Thanks for the quick reply. I really appreciate any assistance I can get on this.

Sadly this didn't work. I received an error: Method 'Range' of object'_Worksheet' failed.

Also your reply made me realize I missed an L in my name... Should have been Paulydaturk...

So I've attached the work book.

The goal is to fill out the form in worksheet Enter new Data and have it paste across to the appropriate cells in the Concessions tab.

Let me know if you can make heads or tails of it.

SE Concession tracking.xlsx

Just got back to the office and tried your code. I adjusted it slightly because it was moving 2 lines down but it worked! Thansk for the assistance, xladept! Made what could have been a frustrating Monday morning much more bearable.