Мерцание листа

Question

Я новичок в VBA, поэтому я пытаюсь создать кнопку макроса, которая может копировать данные вставки из одного листа в другой, но я думаю, что мой код имеет недостатки, потому что лист мигает всякий раз, когда я запускаю код

попробовал простой код, так как я новичок в VBA

Worksheets("Survey Form").Range("C9").Copy
Worksheets("Database").Activate
Cells(Rows.Count, 1).End(xlUp).Select
ActiveCell.Offset(1).Select
ActiveCell.PasteSpecial xlPasteValues
Worksheets("Survey Form").Activate
Application.CutCopyMode = False

Я хочу, чтобы код работал без сбоев

Answer 1

В дополнение к тому, что было предложено в комментариях, вы также должны попробовать это:

Sub something()

Application.ScreenUpdating = False
'
'
'the rest of your code here
'
'
Application.ScreenUpdating = True

End Sub

Это должно на самом деле сделать ваш код более плавным и быстрым.