Olá, você poderia anexar o arquivo para que pudesse dar uma olhada?!

O ideal seria ter postado a rotina que está utilizando, mas para congelamento de tela use a instrução abaixo :

No inicio da rotina adicione a linha :
Application.ScreenUpdating = False

e no final, temos de reverter adicionando a linha :
Application.ScreenUpdating = True

[]s

Mauro, Obrigado pelo retorno, estou utilizando o código abaixo:

Private Sub cmdCadSist_Click()

ThisWorkbook.Worksheets("BaseSist").Activate
'Selecionar a célula B2
Range("B2").Select

Do
If Not (IsEmpty(ActiveCell)) Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True

ActiveCell.Value = txtNomeSist.Value
ActiveCell.Offset(0, 1).Value = txtDescriSist.Value
ActiveCell.Offset(0, 2).Value = txtOwner.Value
ActiveCell.Offset(0, 3).Value = cboTipoSist.Value
ActiveCell.Offset(0, 4).Value = cboAcessoSist.Value
ActiveCell.Offset(0, 5).Value = txtanalista.Value
ActiveCell.Offset(0, 6).Value = cboBDSist.Value
ActiveCell.Offset(0, 7).Value = txtInstancia.Value
ActiveCell.Offset(0, 8).Value = cboServ1.Value
ActiveCell.Offset(0, 9).Value = cboServ2.Value
ActiveCell.Offset(0, 10).Value = cboServ3.Value
ActiveCell.Offset(0, 11).Value = txtImpacto.Value
ActiveCell.Offset(0, 12).Value = txtImpactado.Value
ActiveCell.Offset(0, 13).Value = cboCritSist.Value
ActiveCell.Offset(0, 14).Value = cboGrupoSist.Value
ActiveCell.Offset(0, 15).Value = cboNotificar.Value

txtNomeSist.Value = Empty
txtDescriSist.Value = Empty
txtOwner.Value = Empty
cboTipoSist.Value = Empty
cboAcessoSist.Value = Empty
txtanalista.Value = Empty
cboBDSist.Value = Empty
txtInstancia.Value = Empty
cboServ1.Value = Empty
cboServ2.Value = Empty
cboServ3.Value = Empty
txtImpacto.Value = Empty
txtImpactado.Value = Empty
cboCritSist.Value = Empty
cboGrupoSist.Value = Empty
cboNotificar.Value = Empty

txtNomeSist.SetFocus

End Sub

Mauro, Já deu certo cara valeu!