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