VBA > Exemple code

Sub Exporte()
    Application.ScreenUpdating = False
    Sheets("Extract_IND_QS").Activate
     Range("A1").Select
    If Range("A2") <> "" Then
        With Selection.CurrentRegion
            Intersect(.Cells, .Offset(1)).Select
        End With
        Selection.ClearContents
        Range("A1").Select
    Else
    End If
    frmExtraction.Show
    Range("A1").Select
End Sub