VBA 시트 잠금 풀고 입력 뒤에 다시 잠금 설정 해결 방법

Sub getCopy()
 Dim rng As Range, rngArea As Range
 Dim vDB As Variant
 Dim n As Integer
  Application.ScreenUpdating = False
   Set rngArea = Range("D9:D12")
    n = Range("B14").CurrentRegion.Columns(2).SpecialCells(2).Rows.Count - 1
    vDB = Range("B15").Resize(n, 8)
 
 
 
 Set rng = Sheets("DB").Cells(Rows.Count, 1).End(3)(2)
    rng.Offset(, 4).Resize(n, 8) = vDB
    rng.Resize(n, 4) = Application.Transpose(rngArea)
     rngArea.ClearContents
   Union(Cells(15, 3).Resize(n), Cells(15, 6).Resize(n, 3), Cells(15, 4).Resize(n)).ClearContents
 
 
End Sub