Problema con Macros Excel

[Chaveliado]

Tengo un problema con esta macro, no se ejecuta bien, unicamente hace lo que quiero si la separo en 2 partes quisiera que me ayudaran, aqui les envio los codigos;

Aqui estan las 2 macros, estan separadas porque solo asi funcionan bien lo que quiero es que al unirlas ejecuten lo mismo. Gracias


Sub pasouno()
'
' pasouno Macro
' Macro recorded 17/04/2008 by CSF
'
While ActiveCell.Value <> ""
ActiveCell.Offset(1, 0).Range("A1").Select
Wend
Application.MoveAfterReturn = False

ActiveCell.Offset(0, 0).Select
Application.SendKeys ("%=~")
'
End Sub



Sub paso2()
'
' pruebaaaaaaaaaaaaa Macro
' Macro recorded 17/04/2008 by CSF


ActiveCell.Offset(0, 0).Select
ActiveCell.Copy
ActiveCell.Offset(-1, 1).Select

Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveCell.Offset(0, -1).Select
ActiveCell.Offset(1, 0).Select
Selection.ClearContents
ActiveCell.Offset(1, 0).Select
Application.MoveAfterReturn = True
'
End Sub