Sub save_fuel_data()
'
' save_fuel_data Macro
'

'
    Range("L11:O11").Select
    Selection.Copy
    Range("L13").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Range("Q11").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("Q13").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Range("L13:O13").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Fuel_entries").Select
    Range("A7:D7").Select
    Selection.Insert Shift:=xlDown
    Sheets("sheet1").Select
    Range("Q13").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Fuel_entries").Select
    Range("F7").Select
    Selection.Insert Shift:=xlDown
    Range("E7").Select
    Application.CutCopyMode = False
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=R[1]C[1]"
    Range("E7").Select
    Selection.AutoFill Destination:=Range("E7:E62"), Type:=xlFillDefault
    Range("E7:E62").Select
    Sheets("sheet1").Select
    Range("L13:Q13").Select
    Selection.ClearContents
End Sub