Verborgen rijen NIET kopieren

[TJ86]

Hallo,

ik heb volgende VBA om kolommen te kopieren naar een leeg excel bestand.

Private Sub CommandButton1_Click()
    
    'Artikelen en tarieven selecteren en kopieren naar leeg excel bestand
    Sheets("Calculatieblad").Select
    Columns("AM:AO").Select
    Selection.Copy
    Workbooks.Add
    Range("C1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End sub

Hoe kan ik de code aanpassen dat de VERBORGEN rijen niet worden gekopieerd ?

 

[gast0660]

Zoiets?

Selection.SpecialCells(xlCellTypeVisible).Copy

 

[TJ86]

Ik begin me echt een amateur te voelen. Dankjewel!