copiar la ultima fila con datos

[howling]

buenas noches nesecito un poco de ayuda con una macro lo explico  la macro busca la ultima fila con datos y luego deberia copiar desde esa selda seleccionada hacia la derecha(rango variable) luego pegar en una columna de otra hoja buscando la ultima fila vacia con trasponer

espero haberme explicado lo mejor posible a continuacion solo he llegado hasta esta, pero no encuentro el resto 

Dim ultimaFila As Integer
       
    ultimaFila = Cells(Rows.Count, 3).End(xlUp).Select

[Haplox]

@howling te dejo una solución. Adapta a tus celdas y rangos
 

Sub copiar()
Dim uF As Long, uC As Long

uF = Range("C" & Rows.Count).End(xlUp).Row
uC = Cells(uF, Columns.Count).End(xlToLeft).Column

Range(Cells(uF, 3), Cells(uF, uC)).Copy Hoja2.Range("C" & Hoja2.Range("C" & Rows.Count).End(xlUp).Row + 1)

End Sub

 

[howling]

buenas haplox gracias por la pronta respuesta 

solo decirte que ya lo adapte a mi macro y funciona perfectamente gracias doy por solucionado el tema