Gegevens verdelen van 1 sheet over meerder sheets dmv VBA (2)

Sub Kopieer()
  Dim sh As Worksheet
  Application.ScreenUpdating = False
  With Sheets("bron")
    .AutoFilterMode = False                                'filter uitzetten
    For Each sh In Worksheets                              'loop alle werkbladen af
      If sh.Name <> Sheets("bron").Name Then               'werkblad is niet bron
        .Range("c1").AutoFilter 3, sh.Name                 'filter in bron op naam van dat werkblad
        If .AutoFilter.Range.Columns(3).SpecialCells(xlVisible).Count > 1 Then  'aantal zichtbare cellen in C is groter dan 1 (koprij is de 1e)
          sh.Columns("A:H").ClearContents                  'veeg eerste kolommen in ander werkblad
          .AutoFilter.Range.SpecialCells(xlVisible).Copy   'kopieer zichtbare cellen
          sh.Range("A1").PasteSpecial xlValues             'naar ander blad
          Application.Goto sh.Range("A1"), False           'ga bovenin staan
          sh.Columns("A:H").AutoFit                        'kolombreedte automatisch aanpassen
        End If
      End If
    Next
    .AutoFilterMode = False                                'filter uitzetten
    Application.CutCopyMode = False
  End With
  Application.ScreenUpdating = True
End Sub