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