Rotina em vba para excel

[Duzzo]

Pessoal,

Sou novo no forum, conheço um pouco de logica de programação mas não conheço bem o visual basic.

Estou criando uma macro para excell, mas copiando várias vezes a linha de comando, minha macro ficará enorme e não será viável escreve-la pelo metodo lusitano.

Preciso que o comando abaixo, seja executado várias vezes para diferentes ranges de ("C2:Q2") até ("c393:q393):

Sheets("Plan1").Select

Range("C2:Q2").Select

Selection.Copy

Sheets("Plan4").Select

Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _

, Transpose:=True

Application.CutCopyMode = False

Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _

OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Range("A1:A15").Select

Selection.Copy

Sheets("Plan1").Select

Range("C2:Q2").Select

Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _

, Transpose:=True

Obrigado à todos!

Duzzo

[kuroi]

movido pra vba.