I have a list of jobs along with formulas to the side of the list that calculate various things. Each of the line items is a job I do for work and over a year the list can get to be about 200 to 300 items long. About three months into using the sheet I have to scroll down to the bottom of the list to put in a new item. This gets old. I currently have a macro that sorts the items by date and I would like to modify it to sort everything and leave a line at the top blank for a new item. The trick is I need to maintain the formulas to the side, so the entire row can't be blank just the input cells.

I've tried to cut and paste the current information down one cell but that just messes up the formulas.

Here is my current "Sort" code.

Sub Sort()
'
' Sort Macro
'

'
    Range("C1:L300").Select
    ActiveWorkbook.Worksheets("Assignments").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Assignments").Sort.SortFields.Add Key:=Range( _
        "g2:g300"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Assignments").Sort
        .SetRange Range("C1:L300")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub
Thanks in advance!
Brian