te pregunto lo quieres guardar a una base de datos?, o bien en una hoja que contendra una lista de datos.
si es a otra hoja lo puedes elaborar asi
sub copiar()
Sheets("hoja con el dato a copiar").select
Range("datos que copiaras" ejemplo a1:d13).select
Selection.Copy
sheets("nombre la hoja donde lo copiaras").select
Range("rango donde lo pegaras").Select
ActiveSheet.Paste
en sub
si no es tu duda replanteamela con gusto te ayudare