utilisation d'une macro

Bonjour,
j'ai créer une macro afin de me faciliter la tache de copier coller.
mon problème est le suivant :
dans ma macro l'action se répète toujours dans la même ligne

Selection.Copy
ActiveWindow.ScrollColumn = 1
Range("B33").Select

est il possible lors de l'exécution suivante de cette macro cela devienne Range("B34").Select puis "B35" ...
si oui comment faire.
ici copie complète de la macro:

Sub Macro1()
'
' Macro1 Macro
'
' Touche de raccourci du clavier: Ctrl+m
'
Range("O35").Select
ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
False
Selection.Copy
ActiveWindow.ScrollColumn = 1
Range("B33").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("O35:O46").Select
Application.CutCopyMode = False
Selection.ClearContents
Merci pour vos explications
Bien à vous
Carloutch