pegado especial

Tengo esta macro que me va copiando valores hasta que encuentra una celda en
blanco, necesito que ahora los valores me los copie en una hoja de otro libro
(tiene que crear una hoja nueva cada vez hasta detenerse)

Do Until ActiveCell = ""
ActiveCell.Range("A1:P1").Select
Selection.Copy
Application.Goto Reference:="DATOS"
ActiveSheet.Paste
Application.CutCopyMode = False
Calculate
Application.Goto Reference:="RESULTADOS"
Selection.Copy
Sheets("DATOS").Select
Selection.End(xlToRight).Select
ActiveCell.Offset(0, 1).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.End(xlToLeft).Select
ActiveCell.Offset(1, 0).Range("A1").Select

Loop


Muchas gracias