Sub EnterTMCRecord()
'
' Step1A - Input name of intersection, date, time and counter name.
'
    Application.ScreenUpdating = False
    Sheets("Input Sheet").Select
    Range("B1:B6").Select
    Selection.Copy
    Sheets("TMC Database").Select
    Range("A1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    Selection.End(xlToRight).Select
    Range("A1").Select
    Sheets("Input Sheet").Select
    Range("B1:B6").Select
    Selection.ClearContents
    Range("A1").Select

' Step1B - Transfer TMC volume data to TMC database

    Sheets("Input Sheet").Select
    Range("J8:L8").Select
    Selection.Copy
    Sheets("TMC Database").Select
    Selection.End(xlDown).Select
    Selection.End(xlToRight).Select
    ActiveCell.Offset(0, 1).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.End(xlToRight).Select
    ActiveCell.Offset(0, 1).Range("A1").Select
    Sheets("Input Sheet").Select
    Range("G4:I4").Select
    Selection.Copy
    Sheets("TMC Database").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.End(xlToRight).Select
    ActiveCell.Offset(0, 1).Range("A1").Select
    Sheets("Input Sheet").Select
    Range("G7:G9").Select
    Selection.Copy
    Sheets("TMC Database").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    Selection.End(xlToRight).Select
    ActiveCell.Offset(0, 1).Range("A1").Select
    Sheets("Input Sheet").Select
    Range("K4:K6").Select
    Selection.Copy
    Sheets("TMC Database").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    Selection.End(xlToRight).Select
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "BL"
        Sheets("Input Sheet").Select
    Range("J8:L8,G4:I4,G7:G9,K4:K6").Select
    Selection.ClearContents
    Sheets("TMC Database").Select
    Range("A1").Select
    Application.CutCopyMode = False

' Step1C - Format inputs

    Range("A1").Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Selection.End(xlDown).Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Range("A1").Select
    Sheets("Input Sheet").Select
    Range("A1").Select
    MsgBox "TMC data has been entered successfully."
End Sub