Repetir macro en siguiente fila hasta encontrar una celda vacía

Buenos días,

Espero me puedas colaborar con lo siguiente, tengo una macro que realiza una validación de celdas, se dirige a la celda A2 y avanza de columnas hasta encontrar la ultima celda con datos, esta la copia y la transpone en la Celda H2:

Sub Macro1()

Sheets("Hoja1").Select

Range("A2").Select

Do While ActiveCell.Value <> ""

ActiveCell.Offset(0, 2).Select

Loop

ActiveCell.Offset(0, -1).Select

Selection.Copy

Range("H2").Select

ActiveSheet.Paste Application.CutCopyMode = False

End Sub

Necesito que esta misma macro se repita en las siguientes filas hasta encontrar la ultima celda en la columna A vacía, ejemplo que si el ultimo valor lleno de A esta en A120 repita la misma validación.

Gracias y espero haberme echo entender