Transposing a range of rows into one column.

Hi Everyone,

My aim today is to get my protect to automatically transpose a set of values starting a G2 including all values from G2 until the end, then move to the next row G3 and repeat until there are no more values left G column. All results are to be pasted vertically in one column consecutively.

I'm not off to a good start this is what I have so far:

 Sub trans1()

Dim Col As Integer
Dim i As Integer
Dim row1 As Integer

row1 = ("G2")
Col = Range("G2").End(xlToRight).column

nextrow = 1

For i = row1 To Col

Cells(i, Col).Resize(Col).Copy
Cells(row1 + 5, ("g")).PasteSpecial past:=xlpastea
 
Next

End Sub

Thank you for your time in advance JOSH