Guru do Excel e Power BI

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim rng As Range
  If Target.Column <> 3 Then Exit Sub
  Set rng = Target.CurrentRegion.Cells(2, 3).Resize(Target.CurrentRegion.Rows.Count - 1, 1)
  rng.Sort key1:=rng.Cells(1, 1), Order1:=xlAscending
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim k As Long, m As Long
  If Target.Column <> 3 Then Exit Sub
  Application.ScreenUpdating = False
  If Not Intersect(Target, [C7:C26]) Is Nothing And [C29] = "" Then
   [C7:C26].Sort key1:=[C6], Order1:=xlAscending
  Else
   For k = 7 To Cells(Rows.Count, 1).End(3).Row - 20 Step 22
    If Cells(k, 3) <> "" Then
     Cells(k, 3).Resize(20).Copy
     Cells(Rows.Count, 23).End(3)(2).PasteSpecial xlValues
    Else: Exit For
    End If
   Next k
   Range("W1:W" & Cells(Rows.Count, 23).End(3)(2).Row).Sort key1:=[W1], Order1:=xlAscending
   On Error GoTo fm
   Application.EnableEvents = False
    For k = 1 To Cells(Rows.Count, 23).End(3).Row Step 20
     If Cells(k, 23) <> "" Then
      Cells(k, 23).Resize(20).Copy
      Cells(m + 7, 3).PasteSpecial xlValues: m = m + 22
     Else: Exit For
     End If
    Next k
    Columns(23) = ""
   End If
fm:
   Application.EnableEvents = True
   Application.ScreenUpdating = True
End Sub