Vb para salvar automaticamente arquivo do excell

[Marcel Campos]

Boa tarde colegas,

 

Gostaria de saber se é possível após o botão executar a macro inserirmos um código que realize o salvamento do arquivo.

 

Exemplo

Esta macro pega as informações de um aba e joga em outras duas distintas, eu gostaria que após executar esta macro o salvamento fosse realizado automaticamente (para não depender do operador). 

Private Sub Botão2_Clique()
 Dim LRo As Long, LRd As Long, rA()
 
  If [B5] <> "" Then
   rA = Array([B5], [E5], [H5], [B7], [D7], [F7], [H7], [B9], [E9], [B11], [D11], [F11], [H11], [B13], [D13])
   LRd = Sheets("BD_Prod").Cells(Rows.Count, 1).End(xlUp).Row
   Sheets("BD_Prod").Cells(LRd + 1, 1).Resize(, 15).Value = rA
  End If
  
  If [A18] <> "" Then
   LRo = Sheets("Apontamento").Cells(Rows.Count, 1).End(xlUp).Row
   LRd = Sheets("BD_Paradas").Cells(Rows.Count, 1).End(xlUp).Row
   Sheets("BD_Paradas").Cells(LRd + 1, 1).Resize(LRo - 17, 10).Value = _
   Sheets("Apontamento").Range("A18:k" & LRo).Value
  End If
  
  Union([B5], [E5], [H5], [B7], [D7], [B9], [F11], [H11], [D13]) = ""
  Union(Range("D18:E47" & LRo), Range("G18:J47" & LRo)) = ""
MsgBox "ATENÇÃO! Salve o arquivo e Verifique as informações nos bancos de dados"
End Sub

 

DESDE JÁ OBRIGADO.