Necesito macro que copie datos de una matriz y me los pegue en otra de distinta dimensión.

Hola.

Estoy necesitando una macro que me copie datos (por filas) desde una matriz de dimensión 8748 x 3, a una de 162 x 162. Tiene que tomar los datos por fila (de a tres) y trasponerlos hasta que cada columna tenga 162 entradas.

Recién empiezo con los macros, y se me ocurrió lo siguiente (siguiendo un modelo y la ayuda de excel).

k = 1
j = 1
i = 1
For k = 1 To 8948
Sheets("Hoja1").Range(Cells(k, j), Cells(k, j + 2)).Copy
Sheets("Hoja2").Cells(i, j).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
k = k + 1
i = ¿¿?? La idea acá es que empiece a pegar desde la última fila vacía de la nueva matriz
If i < 162 Then j = j Else j = j + 1
Next
End Sub

Desde ya muchísimas gracias.

dhaber.