Macro to copy and paste (transpose) data from column to row - How to automate values

[shevchenko2020]

I have managed to create a macro which would allow me to copy and paste an specific number of values from a column and then transpose those values into a specific row on a spreadsheet.

here is the code..

Range("G3").Select
Application.CutCopyMode = False
Selection.Copy
Range("G2:G7").Select          '   (The column range I want to copy)
Application.CutCopyMode = False
Selection.Copy
Range("I1").Select                '    (Row where the range of G2:G7) is now transposed)
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("H2:H7").Select          '   (The second column range I want to copy)
Application.CutCopyMode = False
Selection.Copy
Range("I2").Select                '   (Second Row where the range of H2:H7) is now transposed)
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("H8:H13").Select        '   (The third column range I want to copy)
Application.CutCopyMode = FalseSelection.Copy
Range("I3").Select' ( Third Row where the range of H8:H13) is now transposed)
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True

the problem is that this code only works up to certain number of rows... up till H13 for example, but if I want to this repeat this process up to row H600 (range of H600:H605) and pasting to I20 for example
without copying and pasting this code hundreds of times, is there a way I can do this?

Thanks for the responses.