Agregar datos

Te paso el código necesario :
sub agrgar_datos()
    Sheets("Formulario").Range("b5").Select
    Selection.Copy
    Sheets("Datos").Select
    Range("d1").Select
    col = Selection.Column
    fila = Selection.Row
    fila = fila + Selection.CurrentRegion.Rows.Count
    Cells(fila, col).Select
    ActiveSheet.Paste
    Sheets("Formulario").Select
    Range("b5").Select
end sub
Espero que te halla sido de ayuda, cualquier consulta quedo a las ordenes
Saludos, y no te olvides de finalizar y evaluar la respuesta.

Muchas gracias por su pronta respuesta, ya lo probé funciona perfecto. Otra pregunta: como podría modificarlo para poder agregar a la vez más datos. En el ejemplo, adicionalmente de la celda B5, que la B6 se copie a la celda E2. Intente modificarlo pero la verdad soy inexperto, por eso recurro a su ayuda, de nuevo muchas gracias por su tiempo.

Si fuesen rangos continuos sería fácil, ya que solo deberías ampliar el rango, o sea, si el rango a copiar fuese el B5 y C5 y pegar en D2 y E2 lo único que tendrías que hacer es cambiar lo siguiente :
Sheets("Formulario").Range("b5:c5").Select
Ahora para el caso que tu mencionas no queda más remedio que repetir el código:
Sub a()
Sheets("Formulario").Range("b5").Select
Selection.Copy
Sheets("Datos").Select
Range("d1").Select
col = Selection.Column
fila = Selection.Row
fila = fila + Selection.CurrentRegion.Rows.Count
Cells(fila, col).Select
ActiveSheet.Paste
Sheets("Formulario").Select
Sheets("Formulario").Range("b6").Select
Selection.Copy
Sheets("Datos").Select
Range("f1").Select
col = Selection.Column
fila = Selection.Row
fila = fila + Selection.CurrentRegion.Rows.Count
Cells(fila, col).Select
ActiveSheet.Paste
Sheets("Formulario").Select
Range("b5").Select
End Sub
Suerte y quedo a las ordenes