Sub supression5(ByVal pascolonne, pasligne As Integer)

col = Chr(Selection.Column + 64)    'col ilnitial
lign1 = Selection.Row               'ligne initial
lign = Selection.Row                'untuk itungan didalam loop

Do
    col = Chr(Selection.Column + 64)
    lign = lign1
    Do
        Selection.ClearContents
        lign = lign + pasligne
        adress = col & lign
        Range(adress).Select
    Loop Until IsEmpty(Selection)
    col = Chr(Selection.Column + 64 + pascolonne)
    adress = col & lign1
    Range(adress).Select

Loop Until IsEmpty(Selection)


End Sub

    Source: geocities.com/manuhoro