코드 수정 부탁 드립니다.

Private Sub Worksheet_Activate()
 
Dim sht1 As Worksheet
Dim sht2 As Worksheet
Dim Target, rng As Range
Dim title()
Dim items()
Dim i, j, k As Long
Application.ScreenUpdating = False
 
Set sht1 = Sheet1
 
Set sht2 = Sheet2
Set rng = sht2.Range("a1").CurrentRegion.Offset(1).Resize(sht2.Range("a1").CurrentRegion.Rows.Count - 1)
Set Target = sht2.Range("o1")
 
ReDim title(1 To rng.Columns.Count)
 
For j = 1 To rng.Columns.Count
    title(j) = sht2.Cells(1, j)
 
Next
 
 
ReDim items(1 To rng.Rows.Count, 1 To rng.Columns.Count)
 
k = 1
For i = 1 To rng.Rows.Count
    If sht2.Cells(i + 1, 12) <> Target Then
        For j = 1 To rng.Columns.Count
            items(k, j) = sht2.Cells(i + 1, j)
 
        Next
        k = k + 1
    End If
 
Next
 
If sht1.Range("a2") = "" Then
Else
sht1.Range("a1").CurrentRegion.Offset(1).ClearContents
End If
 
sht1.Range("a1").Resize(UBound(title), rng.Columns.Count) = title
sht1.Range("a2").Resize(UBound(items), rng.Columns.Count) = items
Application.ScreenUpdating = True
 
Dim rngn    As Range
Set rngn = sht1.Range("a1").CurrentRegion.Offset(1).Resize(sht1.Range("a1").CurrentRegion.Rows.Count - 1)
 
rngn.Sort Range("b2"), xlAscending, Header:=xlNo
 
 
End Sub