Ayuda para con macro

Hola:

Espero que se encuentre bien.
Estoy necesitando ayuda con un macro.
Lo que busco es lo siguiente:
En la primer parte, el macro selecciona el rango I8:BB8 de una hoja, lo
copia y los pega en otra hoja transponiendo los valores. Luego debe ir
bajando una fila y realizando la misma tarea hasta el rango I30:BB30.
Lo que busco es resumir esto sin tener que copiar eso para todas las celdas
como se puede ver en una parte del código que les he copiado.
Adicionalmente, necesito saber si me pueden indicar también lo siguiente: en
el rango que les marqué (Filas 8 a 30), pueden haber valores en todas las
filas o solo en algunas, siendo siempre las primeras las que tienen valores.
La pregunta es: ¿Cómo puedo hacer para que realice lo que consulté
anteriormente solo para las filas que tienen valores?. Es decir, que si
luego de haber realizado la tarea con la fila 8, y en la siguiente fila no
hay valores (me refiero a ningún valor en ninguna de las celdas del Rango
pues puede haber valores solo en algunas de ellas y en ese caso deberían
copiarse igual), que el macro no continúe con las demás filas.


Sheets("DESCARGA").Select
Range("I8:BB8).Select
Selection.Copy
Sheets("Hoja1").Select
Range("E65536").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=True
Sheets("DESCARGA").Select
Range("I9:BB9").Select
Selection.Copy
Sheets("Hoja1").Select
Range("E65536").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=True

Esto contiúa hasta la fila 30

Bueno, Como siempre me pasa se me hace un tando dificil de explicar. Espero
que hayan podido entender.
Si necesitan alguna otra aclaración les pido que me lo hagan saber.

Muchas Gracias.

Saludos,
Marcelo