transpasar datos a siguiente hoja

[jhon fredy]

hola expertos como puedo modificar el principio de este codigo con la idea de transpasar no solamente los dato de la columa B sino tambien los datos de la columna A,B,C 

Sub zero()

Dim ultimaCeldaDatos As String

'hallar la ultima celda con datos de la columna B de la hoja estadistica
ultimaCeldaDatos = Sheets("analisis").Cells(Rows.Count, 2).End(xlUp).Row
'copiando datos de columna B
Sheets("analisis").Range("b5:b" & ultimaCeldaDatos).Copy

Sheets("archivo").Select
'posicionando en la celda donde pegare los datos en la hoja archivo
Sheets("archivo").Cells(2, Columns.Count).End(xlToLeft).Offset(0, 2).Select
Selection.PasteSpecial
Application.CutCopyMode = False

'copiando datos de las columnas de Estadísticas Descriptivas de la hoja estadistica
Sheets("analisis").Range("g3:h7").Copy
Sheets("archivo").Select
'posicionando en la celda donde pegare los datos en la hoja archivo
Sheets("archivo").Cells(2, Columns.Count).End(xlToLeft).Offset(0, 2).Select
Selection.PasteSpecial xlPasteValues

'configurando el borde y tamaño de las columnas de Estadísticas Descriptivas
Selection.Borders.Weight = XlBorderWeight.xlThin
Selection.ColumnWidth = 20
Application.CutCopyMode = False

End Sub

 

[CECILIO]

Si es que te entendi En donde dice copiando datos de la columna b  en lugar de

Sheets("analisis").Range("b5:b

ultimaCeldaDatos).Copy

prueba con

Sheets("analisis").Range("a5:c

ultimaCeldaDatos).Copy

 

[jhon fredy]

gracias