Excel [求助]求助:用VBA如何实现数据录入后进行自动保存

Sub hzdy()
Dim Arr, Myr%
Arr = Sheets('信息录入').Range('c4:c8')
Myr = Sheets('信息汇总').[a65536].End(xlUp).Row + 1
Sheets('信息汇总').Cells(Myr, 1).Resize(1, 5) = Application.Transpose(Arr)
Sheets('信息录入').Range('c4:c8') = ''
Sheets('信息汇总').Activate
ActiveSheet.PrintPreview
End Sub