Add to my macro to save?

[bpflyr]

I have these two macros and would like for them to automatically save the workbook after it does what it does each time I run it. Can anybody help?

Sub GetBDataEntry()
Application.ScreenUpdating = False
Windows("BDataEntry.xls").Activate
Sheets("Data Entry").Select
Range("A3:AF34").Copy
Windows("BLogbook.xls").Activate
Sheets("Log Entry").Select
Cells(Rows.Count, 1).End(xlUp)(2, 1).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=True _
, Transpose:=False
With Application
.ScreenUpdating = True
.CutCopyMode = False
End With
End Sub
----------------------------------------------------------------------------------
Sub ClearBDataEntry()
'
'

'
Windows("BDataEntry.xls").Activate
ActiveWindow.SmallScroll ToRight:=1
Range("A3:AF34").Select
Selection.ClearContents
ActiveWindow.SmallScroll ToRight:=-1
Range("A3").Select
End Sub

Thanks in advance!!

 

[tusharm]

Why not look up 'save' (w/o the quotes) in XL VBA help? You might surprise yourself and figure out how to do the needful yourself.