Cita:
Iniciado por mrocf 
También lo puedes resolver con las siguientes dos líneas:
Código PHP:
Sheets("Captura").Range("B3:B16").Copy
Sheets("Base de datos").Cells(Rows.Count, "C").End(xlUp).Offset(1).PasteSpecial _
Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
Saludos, Cacho R. Muchas gracias no habia visto este comentario, como ya habia resuelto la duda con el coentario anterior por eso, de todos modos muchas gracias, y lo usare para otro problema que tengo muchas gracias