Macro lenta en formulario excel

Cordial saludo josaul75, tengo una duda con una macro que he diseñado, por medio de un formulario, se encarga de llevarlos a una hoja de excel, pero cuando llega el momento para pasar los datos, se pone muy lenta y realizando el análisis es justo cuando pega los datos de los label a la hoja. Esta es la parte.

Private Sub CommandButton2_Click()
Worksheets("Anticipo").Activate
ActiveSheet.Unprotect ("xyz")
Range("B6").Select
pa = Range("B" & Rows.Count).End(xlUp).Row + 1
Cells(pa, 2).Value = Label12 ' fecha
Cells(pa, 3).Value = Label8 'de
Cells(pa, 4).Value = Label9 'para
Cells(pa, 5).Value = Label10 'concepto
Cells(pa, 6).Value = Label15 ' Observaciones
Cells(pa, 7).Value = Label19 'valor
Cells(pa, 8).Value = Label21 'quien elabora

Worksheets("Anticipo").Activate
ActiveSheet.Protect ("xyz"), DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True
Worksheets("Basedatos").Activate
Range("A1").Select
ActiveWorkbook.Sabe
End
End Sub

la parte final cuando guarda se demora, ya que el libro pesa aproximadamente 7MG, pero la parte de guardado no me preocupa ya que es normal, pero la del pegado si, que otra opción se puede tener presente para pegar. Use también

Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Activate
Loop

pero funciono igual de lento.

te agradezco la ayuda mucho.

feliz dia